use temp1;
use warnings;
use strict;

temp1::init();

use temp1;
use warnings;
use strict;

temp1::init();

print "Calling work1: " . temp1::work1( '$var = 3' ) . "\n";
print "Calling work2: " . temp1::work2( '$var++' ) . "\n";
print "Calling work3: " . temp1::work3( '$var++' ) . "\n";
print "Work3 again:   " . temp1::work3( '++$var' ) . "\n";
print "Calling work4: " . temp1::work4( '$var++' ) . "\n";