my $data = $dbh->selectrow_array(...); # Aus Datenbank lesen

my $image = Image::Magick->new();
$image->Read($data) && "Kann nicht lesen";
$image->Thumbnailgeometry => 'geometry', width => $w, height => $h);

print $image->ImageTopBlob();