@data=$ftp->ls("-R");
foreach $line (@data)
{
     $ftp->get($line); 
     print $line."\n";
}