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