my $start = time();
# jetzt kommt ein beliebiger Codeblock, ich simuliere mal ein "ewig" mit 3 Sekunden
sleep (3);
# Codeblock Ende
my $ende = time();
print "Dieser Codeblock lief genau " . ($ende - $start) . " Sekunden\n";