Select Code to Download

my $packfmt = "A135A11A6A6A20A8A3A978";
my $outline = pack $packfmt,
...
my $parsefmt = lc($packfmt);
(undef, $DMDY, $mdy, $hms, undef, $CLIENT_ID)
            = unpack $parsefmt, $outline;