[Riha] Filtre apache en perl: print() on closed filehandle

[Socrate]

Bonjour tous le monde

J'ai écrit un script perl pour faire un filtre apache 2 avec la directive:
ExtFilterDefine affpub1 mode=output
cmd=/var/www/hebergemoi/cgi-bin/affpub.pl pour afficher automatiquement
quelque chose en haut de chaque page.
Voici le script:

#!/usr/bin/perl -w
use mod_perl qw(all);

$ARGV[0]="";
open(SAVE, ">$ARGV[0]"); # || die "can't open $ARGV[0]: $?";
open(OUT, ">outfile");

print"<table width=\"800\" border=\"0\" align=\"center\" cellspacing=\"0\"
cellpadding=\"0\">
  <tr>
    <td align=\"center\">
hello world
 </td>
  </tr>
</table>";

while (<STDIN>)
{       print SAVE $_;
       print $_;
       print OUT $_;
}

Cordialement
pierre-louis
hebergemoi.homelinux.org