Select Code to Download

#!/usr/bin/perl -w

...
my $go_menu = &menu2;
print "Content-type: text/html\n\n";
print $go_menu;

#!/usr/bin/perl -w

...

}
1;