#!/usr/bin/perl
use Net::FTP;

my $host="abc.def.com";
my $directory="/namish/logs/nali05/";

$ftp=Net::FTP->new($host,Timeout=>240) or $newerr=1;
push @ERRORS, "Can't ftp to $host: $!\n" if $newerr;
myerr() if $newerr;
print "Connected\n";



$ftp->login("abcd","hi1234\@") or $newerr=1;
print "Getting file list";
push @ERRORS, "Can't login to $host: $!\n" if $newerr;
$ftp->quit if $newerr;
myerr() if $newerr; 
print "Logged in\n";



$ftp->cwd($directory) or $newerr=1; 
push @ERRORS, "Can't cd  $!\n" if $newerr;
myerr() if $newerr;
$ftp->quit if $newerr;



@files=$ftp->dir or $newerr=1;
push @ERRORS, "Can't get file list $!\n" if $newerr;
myerr() if $newerr;
print "Got  file list\n";   
foreach(@files) {
print "$_\n";
}
$ftp->quit;




sub myerr {
print "Error: \n";
print @ERRORS;
exit 0;
}


##</code><code>##

RETRIEVING AOK LOG FILES FROM LOG.ARCOT.COM......
Connected
Getting file listError:
Can't login to abc.def.com: