use temp1;
temp1::init();
print "Calling work1: ";	temp1::work1('$var');
print "\nCalling work2: ";	temp1::work2('$var');

##</code><code>##

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

##</code><code>##

Calling work1: 
Calling work2: 1