Select Code to Download

#!/usr/bin/perl
use strict;
...
        }
    }
}

$ time ./original.pl
real    1m50.885s
...
real    1m23.238s
user    1m15.989s
sys     0m0.500s