Select Code to Download

Oct 31, 2013 10:40:05 AM PCKLog log
INFO: 10.20.33.251: recv - <2>747599306525<3><5><4> 
...
INFO: 10.20.33.251: send - <2>\x0B\x1B[1F\x1B[08;08TMBheader\x1B[2002F
+\x1B[000;24CGHIRARDELLI MINT\x1B[6F\x1B[000;36C2/$6.00<3>8<4>
Oct 31, 2013 10:40:11 AM PCKLog log
INFO: 10.20.33.251: send - <2>\x0B\x1B[1F\x1B[008;08T\x1B[1002J<3>8<4>

#!C:\Perl\bin\perl
use strict;
...
my $tree=$parser->transaction(@log);

print Dumper($tree);

Date:        Oct 31, 2013 - 10:40
Scanner:     10.20.33.251
PLU:         747599306525
Description: GHIRARDELLI MINT