sleep 4;
print "timespan: " . (time - do {
  my $btime;
  BEGIN {$btime=time}
  $btime
}); # should show 4