Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

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

Select or download this

#!/usr/bin/perl

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