use Stopwatch; print "Just executed use\n"; tie $s, 'Stopwatch'; print "Just executed tie\n"; $s = 0; print "Just executed \$s = 0;\n"; print "$s\n"; print "Just executed print \$s\n"; $s = undef; print "Just executed undef\n";