#!/usr/bin/perl -w


use warnings;
 
my $filename = 'test.gif';

print "Content-Type: image/gif\n\n";
binmode STDOUT;

if(open(File, "< $filename"))
{
binmode FILE;
my $buffer;
while(read(FILE, $buffer, 65536)) { print $buffer; undef $buffer; }
close FILE;
}

#!/usr/bin/perl

use strict;
use warnings;
 
my $filename = 'test.gif';

if(open(File, "<", $filename))
{
  print "Content-Type: image/gif\n\n";
  binmode STDOUT;
  binmode FILE;
  my $buffer;
  while(read(FILE, $buffer, 65536)) { print $buffer; undef $buffer; }
  close FILE;
}
else
{
  print "Content-Type: text/plain\n\n";
  print "Konnte Bild: $filename nicht oeffnen ($!)\n";
}