Select Code to Download

use strict;
use Time::HiRes;
...
   printf "It seems your code is %s (overhead=%.2f, delta=%.2f)\n",
      ($delta > $overhead*5) ? "naughty" : "clean", $overhead, $delta;
}

# Don't do this:
use English;

# Do this instead:
use English qw( -no_match_vars );