my @files = $ftp->List("*.*", 3);
foreach my $file (@files) 
{
   print $file->{'name'}, " ", $file->{'mtime'}, "\n";
}