package temp1;
my $var;
sub init  {	$var = 1 }
sub work1 {	print eval $_[0]; } 
sub work2 {	print eval $_[0]; $var = $var; } 
1;