#!/usr/bin/perl
use strict;
use warnings;

my $start = time;
# Do stuff
my $duration = time - $start;
print "Execution time: $duration s\n";