#!/usr/bin/perl

use GD;
use CGI::Carp qw(fatalsToBrowser);
       
$im = new GD::Image(400,150);
  
$hintergrund = $im->colorAllocate(255,254,216);


$im->fill(50,50,$hintergrund);


print "Content-Type: Image/JPEG\n\n";


print $im->jpeg;