my $var;

mysub();

sub initialize
{ 
    $var = 'print "hi\n"';
    print "in initialize: $var\n";
}

sub mysub
{
    print "in mysub: $var\n";
}

BEGIN { initialize() }