#!/usr/bin/perl
use Time::HiRes::Value;
my $start = Time::HiRes::Value->now();
my $exitcode = system( @ARGV );
my $duration = Time::HiRes::Value->now() - $start;
printf STDERR "Took $duration seconds\n";
exit( $exitcode >> 8 );
#!/usr/bin/perl
use Time::HiRes::Value;
my $start = Time::HiRes::Value->now();
my $exitcode = system( @ARGV );
my $duration = Time::HiRes::Value->now() - $start;
printf STDERR "Took $duration seconds\n";
exit( $exitcode >> 8 );