{
    my $sub;
    BEGIN {
        $sub= sub {
            # ...
        };
    }
    sub GlobalRoutine {
        &$sub( ... );
    }
}
[download]

Is one way to do it.

You shouldn't need the BEGIN block in there. The $sub var will go out of scope at the end of the block anyways. Nice closure of a subroutine.

Cheers,
KM

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

It is easy to put this in places where the BEGIN block becomes necessary. Some are much more subtle than this. Without the BEGIN block, $sub is declared and GlobalRoutine is compiled before $sub is initialized so it then becomes possible for GlobalRoutine to be called while $sub is still undef.

I'm sorry that Perl doesn't have real static variables such that I have to resort to an extra empty block and doing the initialization in a BEGIN block. Note that this trick won't work if you are using mod_perl.

FYI, since I didn't use any local variables in the anonymous subroutine, it isn't a closure in my book.

        - tye (but my friends call me "Tye")

Cheers,
KM