Select Code to Download

#!/usr/bin/perl
use strict; use warnings;
...
    -20, #for 20 cpu secs
    \%tests
);

open(my $fh, "<", "24length_packed.data" ) or die $!;
local $/ = undef;
...
    push @{ $hash{ $_->[0] } }, [ $_->[1], $_->[2] ]
     } unpack( '(a10a10a4)*', <$fh>),
close $fh;