#!/usr/bin/perl use OCR::PerfectCR; use GD;