Select Code to Download

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