error message with net::FTP

Hi there,

I am having some trouble with net::FTP module
I get this error message
Timeout at /usr/lib/perl5/5.8/Net/FTP.pm line 1001

the script list directories in a path
then loops and list subdirectories
I can connect and list files but as I try to ls into final sub-directory
it hangs I get into the directory but cannot list

foreach (@list){
$ftp->cwd();
$ftp->cwd("$_");
my @filelist=$ftp->ls($_) or print LOG "cannot get in project folder
$_";
foreach (@filelist){
print LOG "$_";
$ftp->cwd();
$ftp->cwd("$_") or print LOG "cannot get in date folder
$_";
print LOG "\n";
print LOG "current folder ";
print LOG $ftp->pwd();
print LOG "\n";
my @today=$ftp->ls("$_") or print LOG "cannot read in
date folder $_\n";
}
print LOG "\n";
}

my log contains this:
/[base]/[subdir]
/[base]/[subdir]/0102/050601
current folder /[base]/[subdir]/0102/050601

timeout is at prompt

any ideas / Or stuff so obvious I cannot see it

Laurent Coudeur
353 1 212 3181