Main( @ARGV );
exit( 0 );
sub Main {
    my $lig = 4;
    my $q = CGI->new;
    DoSomething( $lig, $q );
}
sub DoSomething {
    my( $lig, $q ) = @_;
    ...
}