my $begin = time();

# do stuff

print "I took ", time() - $begin, " seconds\n";