exit main( @ARGV );
{
    my $sub;
    BEGIN {
        $sub= sub {
            # ...
        };
    }
    sub GlobalRoutine {
        &$sub( ... );
    }
}
sub main {
    # ...
}