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

##</code><code>##

-rw-r--r--   1 user  user    680   Aug  12   12:01   is41bt1p.scc

##</code><code>##

#!/usr/local/bin/perl
use Net::FTP;
my $dir = '/home/geouser/Bluedevil/Test';
my $host = '123.45.67.890';
my $login = 'user';
my $passwd = 'password';
my $ftp = Net::FTP->new($host);
my $RC = $ftp->login("$login","$passwd");

if (not $RC)
{
    print "\n\nFTP Login to Remote Host: '$host' failed!\n\n";
    print "No files updated from Remote host: '$host'!\n\n";
    exit;
}

# Go to the specified directory
  print STDERR "Changing directory to <$dir>\n" if ($DEBUG);
  if ($ftp->cwd($dir) == 0)

  {
    warn "$program: can't change directory to <$dir>\n";
    return(1);
  }

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