@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>>