Grafik einlesen/ausgeben

[Andres Freund]

Hi,

Kann mir mal jemand posten wie man in Perl ein Grafik einlist
und ausgibt (nur die Grafik ohne HTML) ?
Müsste das nicht so in der Art aussehen ?

#!/usr/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
$name = "pic1.jpeg";

print "Content-type: image/jpeg\n\n";

open (BILD ,"../pics/public/$name");

binmode BILD; #nur auf Windows Systemen wichtig

my @data = <BILD>;
close (BILD);
print @data;

So funktioniert es.