#!/usr/bin/perl

sleep 4;
BEGIN { $anon = time }
print "timespan: " . (time - $anon); # shows 4

##</code><code>##

#!/usr/bin/perl

sleep 4;
print "timespan: " . (time - BEGIN{time}); # should show 4