Select Code to Download

use strict;
use warnings;
...
my $before = time;
undef %hash;
printf "Done in %.03f seconds\n", time - $before;