Probleme avec fork() et Socket ?

Bonjour,

Un petit problème de "fork".... J'ai un programme qui tourne
sur une debian/linux avec perl :
"This is perl, v5.6.1 built for i686-linux"
le programme ci-dessous (un extrait j'ai retiré tout ce qui
ne servait à rien) fonctionne sans problème depuis de nombreux
mois(c'est largement inspiré de la doc Perl).

Je réinstalle une nouvelle machine (debian/linux/knoppix) avec
une nouvelle version de perl :
"This is perl, v5.8.0 built for i386-linux-thread-multi"
et la ... plus rien ne fonctionne ... message d'erreur suivant :

Can't call method "autoflush" on an undefined value at ..... line 61

Le problème provient de Perl ? si oui comment le résoudre ?

Merci d'avance pour ce grand coup de main :-)

Philippe

######################################################################
#!/usr/bin/perl -w

use strict;
use IO::Socket;
use Net::hostent;
use POSIX qw(:sys_wait_h);

my ($PORT) = 9000;

## les terminateurs
my ($EOL) = "\015\012";
my ($FIN) = $EOL x 2;

sub REAP {
1 until ( -1 == waitpid( -1, WNOHANG) );
$SIG{CHLD} = \&REAP;
}

$SIG{CHLD} = \&REAP;

my ($server) = IO::Socket::INET->new( Proto => 'tcp',
LocalPort => $PORT,
Listen => 5,
Reuse => 1);

die "can't setup server" unless $server;

STDOUT->autoflush(1);

......................................................

while ($client = $server->accept()) {

$client->autoflush(1);
## separation PERE et FILS
#########################
next if $pid = fork();

print .....
close $server; ## On ferme le serveur du FILS

while ( $ligne = <$client> ) {
if ( $ligne eq...){
..... ## je fais des trucs ;-))
}
}
.....
exit; ## FIN DU FILS
} continue
{
close $client;
}