package temp1;
use strict;
use warnings;

my $var;

sub init { $var = 101 }
sub work1 { return eval shift; }
sub work2 { my $foo = shift; return eval $foo; $var }
sub work3 { return eval $_[0]; }
sub work4 { eval $var; }

1;