Select Code to Download

use strict;
use warnings;
...
                        }
                }
        }

$t1 = Benchmark->new;
# First chunk from the code above
...
$td2 = timediff($t4-$t3);

print timestr($td1),"\n",timestr($td2);