[Cascavel-pm] Exibindo imagens gif pelo Perl.

[Sandro de Almeida Filho]

Amigos, meu servidor não me passa estatísticas.

Estava tentando fazer um script para abrir uma imagem "gif", gravar
uma certa informação no meu banco de dados.

Só que, o meu navegador informa que a imagem está com erros.

Algum de vcs pode me dar uma "luz" ?

Eis meu codigo:

#!/usr/bin/perl
my $file = "banner.gif";
print "Content-type: image/gif\n";
print "\n";
open( FILE, $file );
binmode FILE;
print <FILE>;

- Sandro