#!/usr/bin/perl

use 5.008;
use strict;
use warnings;

use Image::Magick;
use MIME::Base64;

use DBI;

#data:image/gif;base64,R0lGODlhJAAlAPcAAAAAAAAAMwAAZgAAmQAAzAAA/wArAAArMwArZgArmQArzAAr/wBVAABVMwBVZgBVmQBVzABV/wCAAACAMwCAZgCAmQCAzACA/wCqAACqMwCqZgCqmQCqzACq/wDVAADVMwDVZgDVmQDVzADV/wD/AAD/MwD/ZgD/mQD/zAD//zMAADMAMzMAZjMAmTMAzDMA/zMrADMrMzMrZjMrmTMrzDMr/zNVADNVMzNVZjNVmTNVzDNV/zOAADOAMzOAZjOAmTOAzDOA/zOqADOqMzOqZjOqmTOqzDOq/zPVADPVMzPVZjPVmTPVzDPV/zP/ADP/MzP/ZjP/mTP/zDP//2YAAGYAM2YAZmYAmWYAzGYA/2YrAGYrM2YrZmYrmWYrzGYr/2ZVAGZVM2ZVZmZVmWZVzGZV/2aAAGaAM2aAZmaAmWaAzGaA/2aqAGaqM2aqZmaqmWaqzGaq/2bVAGbVM2bVZmbVmWbVzGbV/2b/AGb/M2b/Zmb/mWb/zGb//5kAAJkAM5kAZpkAmZkAzJkA/5krAJkrM5krZpkrmZkrzJkr/5lVAJlVM5lVZplVmZlVzJlV/5mAAJmAM5mAZpmAmZmAzJmA/5mqAJmqM5mqZpmqmZmqzJmq/5nVAJnVM5nVZpnVmZnVzJnV/5n/AJn/M5n/Zpn/mZn/zJn//8wAAMwAM8wAZswAmcwAzMwA/8wrAMwrM8wrZswrmcwrzMwr/8xVAMxVM8xVZsxVmcxVzMxV/8yAAMyAM8yAZsyAmcyAzMyA/8yqAMyqM8yqZsyqmcyqzMyq/8zVAMzVM8zVZszVmczVzMzV/8z/AMz/M8z/Zsz/mcz/zMz///8AAP8AM/8AZv8Amf8AzP8A//8rAP8rM/8rZv8rmf8rzP8r//9VAP9VM/9VZv9Vmf9VzP9V//+AAP+AM/+AZv+Amf+AzP+A//+qAP+qM/+qZv+qmf+qzP+q///VAP/VM//VZv/Vmf/VzP/V////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAACH5BAEAAPwALAAAAAAkACUAAAj/APcJHEiwoMGDCBMqXMiwocOHA8+BMwcOXDuIDM9leyXtVTZU5zAq/JYqG7aS016ZE4kwW8mTJl9hm3aRJUGX2Fx+zJZyWi13NgWmyvnq3LdpJodyDGkzm8tvAod1RDo0Gy+br6a5yjawXdat2LIyxQgu57SC4DZOGzrtKsZzU90OpFdrGlFsYx22K7k1r8BzHLOm+lZTb1ikB9ullJbU70JwShGe26oT70N3qHg6Fqj45GG5DL9txNZLsiuqOS023Ptx2sqD7tJu1ZoKXMO0mbMVNthrKuXNBRVTtqXQK+PWoBGybrsQrsfcr4t3jJ6QLs9sp22Bs7W7IGDqCs8pOEVqFjxBd92Lmz39KjPxoATFy9zIuBb84IzZerxfkJjFjU7xhxA4+wmYmG0GJqjgggw26OCDCgYEADs=
my $ref = {
	Grafik => 'R0lGODlhJAAlAPcAAAAAAAAAMwAAZgAAmQAAzAAA/wArAAArMwArZgArmQArzAAr/wBVAABVMwBVZgBVmQBVzABV/wCAAACAMwCAZgCAmQCAzACA/wCqAACqMwCqZgCqmQCqzACq/wDVAADVMwDVZgDVmQDVzADV/wD/AAD/MwD/ZgD/mQD/zAD//zMAADMAMzMAZjMAmTMAzDMA/zMrADMrMzMrZjMrmTMrzDMr/zNVADNVMzNVZjNVmTNVzDNV/zOAADOAMzOAZjOAmTOAzDOA/zOqADOqMzOqZjOqmTOqzDOq/zPVADPVMzPVZjPVmTPVzDPV/zP/ADP/MzP/ZjP/mTP/zDP//2YAAGYAM2YAZmYAmWYAzGYA/2YrAGYrM2YrZmYrmWYrzGYr/2ZVAGZVM2ZVZmZVmWZVzGZV/2aAAGaAM2aAZmaAmWaAzGaA/2aqAGaqM2aqZmaqmWaqzGaq/2bVAGbVM2bVZmbVmWbVzGbV/2b/AGb/M2b/Zmb/mWb/zGb//5kAAJkAM5kAZpkAmZkAzJkA/5krAJkrM5krZpkrmZkrzJkr/5lVAJlVM5lVZplVmZlVzJlV/5mAAJmAM5mAZpmAmZmAzJmA/5mqAJmqM5mqZpmqmZmqzJmq/5nVAJnVM5nVZpnVmZnVzJnV/5n/AJn/M5n/Zpn/mZn/zJn//8wAAMwAM8wAZswAmcwAzMwA/8wrAMwrM8wrZswrmcwrzMwr/8xVAMxVM8xVZsxVmcxVzMxV/8yAAMyAM8yAZsyAmcyAzMyA/8yqAMyqM8yqZsyqmcyqzMyq/8zVAMzVM8zVZszVmczVzMzV/8z/AMz/M8z/Zsz/mcz/zMz///8AAP8AM/8AZv8Amf8AzP8A//8rAP8rM/8rZv8rmf8rzP8r//9VAP9VM/9VZv9Vmf9VzP9V//+AAP+AM/+AZv+Amf+AzP+A//+qAP+qM/+qZv+qmf+qzP+q///VAP/VM//VZv/Vmf/VzP/V////AP//M///Zv//mf//zP///wAAAAAAAAAAAAAAACH5BAEAAPwALAAAAAAkACUAAAj/APcJHEiwoMGDCBMqXMiwocOHA8+BMwcOXDuIDM9leyXtVTZU5zAq/JYqG7aS016ZE4kwW8mTJl9hm3aRJUGX2Fx+zJZyWi13NgWmyvnq3LdpJodyDGkzm8tvAod1RDo0Gy+br6a5yjawXdat2LIyxQgu57SC4DZOGzrtKsZzU90OpFdrGlFsYx22K7k1r8BzHLOm+lZTb1ikB9ullJbU70JwShGe26oT70N3qHg6Fqj45GG5DL9txNZLsiuqOS023Ptx2sqD7tJu1ZoKXMO0mbMVNthrKuXNBRVTtqXQK+PWoBGybrsQrsfcr4t3jJ6QLs9sp22Bs7W7IGDqCs8pOEVqFjxBd92Lmz39KjPxoATFy9zIuBb84IzZerxfkJjFjU7xhxA4+wmYmG0GJqjgggw26OCDCgYEADs='
};
my $blob = $ref->{'Grafik'};
# Fülle BLOB mit binären Daten
$blob = MIME::Base64::decode_base64($blob); 

my $dbh = DBI->connect("dbi:mysql:test", "test", "test") or die $DBI::errstr;

# Tabelle erzeugen und BLOB mit binären Daten beschicken
$dbh->do('DROP TABLE test');
$dbh->do('CREATE TABLE test (id INT, b BLOB)');
$dbh->do('INSERT INTO test VALUES(1, ?)', undef, $blob);

# Daten holen
my $hash_ref = $dbh->selectrow_hashref('SELECT * FROM test WHERE id = 1');

if ($hash_ref) {
	$blob = $hash_ref->{'b'} or die "BLOB leer!?";
	
	### testmode zur Ausgabe auf Webserver
	#binmode (STDOUT);
	#print 'Content-Type: image/gif', "\n\n", $blob;

	my $image = Image::Magick->new();
	$image->BlobToImage($blob);
	$image->Write('/tmp/test.png');	
}