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