require Image::Magick;
my $imbase = Image::Magick->new(magick=>'png')
or return $app->error($app->translate("Image creation failed."));

# Read the predefined letter PNG for each letter in $code
my $x = $imbase->Read(map { File::Spec->catfile($base, $_ . '.png') } split(//, $code));

if ($x) {
	return $app->error($app->translate("Image error: [_1]", $x));
}