use OCR::PerfectCR;
use GD;
use Data::Dumper;

my($file) = @ARGV;
die "No file" unless defined $file;

my $recognizer = OCR::PerfectCR->new;
$recognizer->load_charmap_file("charmap");
my $image = GD::Image->new($file) or die;
my(@out) = $recognizer->recognize($image);
print Dumper(\@out);


##</code><code>##

  'width' => 18,
  'str' => "\x{fffd}",
  'endcol' => 18, 
  'startcol' => 0,
  'color' => '163',
  'bgrgb' => [
    148,
    202,
    212 
  ],  
  'chrwidth' => '18',
  'md5' => '9454596172a32923111c25373a801472',
  'prespace' => 0