my $sql = "select type,data from bilder where id =?";
    my $sth = $dbh->prepare($sql);
    $sth->execute( $q->param('id') );
    my $error = 0;
    (my $type, my $data) = $sth->fetchrow() || ( $error = 1 );
    binmode(STDOUT);

    if ( $error == 1 )
      {
        print $q->header( -type => "image/gif" );
        open( IN, "templates/keinbild.gif" );
        binmode(IN);
        while (<IN>) { print; }
        close(IN);
      }
    else
      {
        print $q->header( -type => $type );
        print $data;
      }

##</code><code>##

[Sun Dec 18 11:24:34 2005] [error] [client 192.168.x.y] (\xa2\x80, referer: http://server.lan/cgi-bin/index.pl?action=picman

##</code><code>##

CREATE TABLE `bilder` (
  `id` int(11) NOT NULL auto_increment,
  `data` longblob NOT NULL,
  `type` enum('image/jpeg','image/gif','image/png') NOT NULL default 'image/jpeg',
  `resx` int(11) NOT NULL default '0',
  `resy` int(11) NOT NULL default '0',
  PRIMARY KEY  (`id`)
) ENGINE=MyISAM DEFAULT CHARSET=utf8 ;