#!/usr/bin/perl --
use File::Spec;
use Image::Magick;
my $imbase = Image::Magick->new(magick=>'png') or die("Image creation failed.");

# Read the predefined letter PNG for each letter
my $x = $imbase->Read(map { File::Spec->catfile('/my/web/httpd/htdocs/mt/images/captcha-source/',$_.'.png') } (a..z));

if ($x) {
	die($x);
}