Neither BEGIN nor INIT blocks evaluate to anything. The way to do what you want is probably to involve a do block and a variable:

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