error message with net::FTP

[Laurent Coudeur]

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