#!/usr/bin/perl -l
use strict;
use warnings;
use vars qw( %test );

sub test{
    $test{localsub} = sub{
        print 'localsub1';
        return 12345;
    } unless exists $test{localsub};

    $tset{localsub}->();
}

print test;
__END__
Global symbol "%tset" requires explicit package name at t.pl line 12.
Execution of t.pl aborted due to compilation errors.
[download]