#!perl -wT
use strict;
use CGI;
# use more modules;

&mysub1();
exit 0;

sub mysub1 {
# the body of the script
}
1;