#!/usr/bin/perl     -w

use CGI::Carp qw(fatalsToBrowser warningsToBrowser);
use warnings;
use strict;
use DBI;
use CGI;
use GD;

print "Content-Type: text/html\n\n";
warningsToBrowser(1);

my $bild = newFromJpeg GD::Image("../presse/ak_presseschau_TEST.jpg");