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);