main() unless caller();

sub main
{
    my $q = CGI->new();
    # ....
}