Select Code to Download

# The raw data as you might read it fro the file
$raw = '2010/02/03 10:52:03.123456'; print length $raw;;
...

$level2hex = unpack 'H*', $level1hex; print $level2hex;;
3332333033313330326633303332326633303333323033313330336133353332336133
+3033333265333133323333333433353336

my @trlname = (
        "Record Type", "Date",    "Record Size",     "Number Record",
...
        "newLine"
);
my @trlsize = (6, 28, 8, 14, 32, 10, 6, 32, 2);

my @fields = unpack 'A6 A28 A8 A14 A32 A10 A6 A32 A2', $data;

print $trlname[ $_ ], ' : ', $fileds[ $_ ] for 0 .. $#fields;

sub print_trailer {
        my $data = shift;
...
                        display_data($hex);
                }
        }