http://qs1969.pair.com?node_id=394032

#!/usr/local/bin/perl -w use strict; use Imager; my $impact = Imager::Font->new(file => '/home/dmueller/test/IMPACT.ttf'); my $times = Imager::Font->new(file => '/home/dmueller/test/times.ttf'); my $img = Imager->new(xsize=>5500, ysize=>6600, bits=>1) || warn Imager->errstr; my $image = $img->to_paletted(colors=>Imager::Color->new(255,255,255), class => 'fax', make_colors => 'none', translate => 'errdiff', errdiff => 'stucki') || die Imager->errstr; $image->string(text=>'14', x=>1750, 'y'=>1220, size=>1470, font=>$impact, color=>'black', aa=>1, align=>0) or warn $image->errstr; $image->string(text=>'13716', x=>750, 'y'=>3100, size=>1450, font=>$impact, color=>'black', aa=>1, align=>0) or warn $image->errstr; $image->write(file=>'./foo.tif') or die $image->errstr; exit;