hi!
#!/usr/bin/perl
print "Content-type: image/gif \n\n";
print "grafik.gif";
=== cut ===
#!/usr/bin/perl -w
print "Content-type: image/gif\n\n";
open GIF, "<grafik.gif";
binmode GIF;
binmode STDOUT;
while (read GIF, $buf, 1024)
{
print;
}
close(GIF);
=== cut ===
Probier das mal, ist aber ungetestet. Ich weiß nicht, ob das so funktioniert.
bye, Frank!