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;
      }