Select Code to Download

use strict;
use warnings;
...
} @ARGV;

timethese( ($use_eval ? 10000 : 1000), \%testhash );