Select Code to Download

$packed = join "", map { chr() } (0x01..0x20);
$plen = length( $packed );
...
$unpacked = unpack( $tmpl, $packed );
$result = ( $packed eq $unpacked ) ? "same" : "different";
print "$result\n";'

my $iIcao = "???";
my $AtrFile = "some_file_name";
...
    }
    return ( $recid, $offset );
}