#!/usr/bin/perl

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