[root@abcdefgjmp09 PegCount]# ftp 10.222.233.244
Connected to 10.252.156.103.
220 wxyz-bts01 FTP server ready.
530 Please login with USER and PASS.
530 Please login with USER and PASS.
KERBEROS_V4 rejected as an authentication type
Name (10.222.233.244:root): xxx
331 Password required for xxx.
Password:
230 User xxx logged in.
Remote system type is UNIX.
Using binary mode to transfer files.
ftp> 

##</code><code>##

Connected to CA5
 Logged in to CA5
   Directory changed on CA5.
    Got file list from CA5
     Getting CA5.201202270000.txt...
#
         Disconnected from CA5


Connected to CA2
 Logged in to CA2
   Directory changed on CA2.
    Got file list from CA2
     Getting CA2.201202270000.txt...
#
         Disconnected from CA2


Can't ftp to 10.222.200.200: Net::FTP: connect: timeout
 FTP to 10.222.200.200 aborted.

                                Script paused for a few seconds...

Can't ftp to 10.222.201.201: Net::FTP: connect: timeout
 FTP to 10.222.201.201 aborted.

    
                                Script paused for a few seconds...

Can't ftp to 10.222.233.244:        <<address reachable manually 
 FTP to 10.252.156.103 aborted. 

##</code><code>##

 
 @records = <BTS>;
      foreach(@records) {
      my @files=();
      my @sorted_seen=();
      my $host=();
        ($clli,$host) = split /;/, $_, 2;
        chomp $host;
 
        $ftp=Net::FTP->new($host,Timeout=>15) or $newerr=1;
 
        if($newerr) {
             print "\n\nCan't ftp to $host: $@\n";
             print " FTP to $host aborted.\n\n";
             next;
        } else {
 
       print "\n\nConnected to $clli\n";
       <<continue with file transfer, etc>>