#! /usr/bin/perl use strict; use warnings; # fetch timestamps directly before and after system() call # we don't care about data or exitstatus of called programs my $start_time = time; system( @ARGV ); my $end_time = time; printf "Started: %s\n", scalar(localtime($start_time)); printf "Finished: %s\n", scalar(localtime($end_time)); printf "Runtime: %ss\n", $end_time - $start_time;