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