#!/usr/bin/perl

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