#!/usr/bin/env perl

use Time::HiRes qw( time );
use feature qw(say);

my $start = time;

say qx (grep karl very_huge10GB.file);

printf "Took %.3f seconds\n", time - $start;

__END__

karls-mac-mini:monks karl$ ./wrap.pl 
nose cuke karl
nose cuke karl
nose cuke karl
nose cuke karl
nose cuke karl

Took 157.265 seconds