Help for this page

Select Code to Download


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