my $cgi = CGI->new;
if ($cgi->param ('foo') {
  # have data to process
} else {
  # no data, so print an empty form
}