$ perl thing
usage: $result = timethis($time, 'code' );        or
       $result = timethis($time, sub { code } );