use strict;
use warnings;
use Image::Magick;
use DBI;
use MIME::Base64;
use Tk::JPEG;
use Tk::PNG;

my $dsn = "DBI:mysql:database=Fotos;host=127.0.0.1;port=3306";
my $dbh = DBI::->connect( $dsn, 'root', 'root', { RaiseError => 1, PrintError => 0, AutoCommit => 1 } );

my $sql = "SELECT * FROM kartenvorlagen WHERE idkartenvorlagen = '23' LIMIT 1;";
my $sth = $dbh->prepare($sql);
$sth->execute;

my $ref = $sth->fetchrow_hashref;

if ( $sth->rows == 1 )
	{
	my $image = Image::Magick->new;
	my $blob = $$ref{'Grafik'};
	$blob = encode_base64($blob); # Habe es mit und ohne versucht..
	$image->BlobToImage($blob);
	$image->Write('test.jpg');
	}