sub test {
    $::test{localsub} = sub {
        print 'localsub1';
        return 12345;
    } unless exists $::test{localsub};
    $::test{localsub}->();
}