my $var;

mysub();

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

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

BEGIN { initialize() }

##</code><code>##

in initialize: print "hi\n"
in mysub: print "hi\n"

##</code><code>##

sub mysub
{
    print "in mysub: $var\n";
    print eval("$var"), "\n";
}

##</code><code>##

in initialize: print "hi\n"
in mysub: print "hi\n"
hi
1

##</code><code>##

sub mysub
{
    print "in mysub: $var\n";
    print eval("...$var..."), "\n";
    print $@ if $@;
}

##</code><code>##

in initialize: print "hi\n"
in mysub: print "hi\n"

syntax error at (eval 1) line 1, near "..."

##</code><code>##

sub mysub
{
    print "in mysub: $var\n";
    print eval("$var"), "\n";
}

##</code><code>##

in initialize: print "hi\n"
in mysub: print "hi\n"
hi
1