Select Code to Download

use temp1;
use warnings;
...
print "Calling work4: " . temp1::work4( '$var++' ) . "\n";

package temp1;
use strict;
...
sub work4 { eval $var; }

1;

Calling work1: 3
Calling work2: 101
...
Work3 again:   5
Calling work4: 102