use CGI;

my $query = new CGI;
my $name = $query->param("name");

if (!$name) {      # test for a form field filled in
   &show_form;     # if no, show form.
} elsif {
   &process_data;  # otherwise, process form data
   &show_result;
}
exit(0);