Select Code to Download

use Modern::Perl;
use Time::HiRes qw/time/;

...

say 'stat checks took ', $end - $start, ' seconds.';
say 'That is ', 540 / ($end - $start), ' checks per second.';