if ( $ENV{REQUEST_METHOD} eq "GET" ) {
   print_the_form();
 } 
 elsif ( $ENV{REQUEST_METHOD} eq "POST" ) {
   handle_the_form();
 } 
 else { print "GET and POST request only" }