@files = $ftp->ls;

foreach $file1 (@files)
{ 
 if($file1 !~ a directory){skip it};
 
 if($file1 !~ a file)
    { $ftp->get($file1) || die "Can't get files from $dir :@{[ $ftp->message ]}\n";       
	}
   }
$ftp->close();
}