========================================================

#!/usr/bin/perl -w

use strict;
use warnings;

use Net::FTP;
use Net::Telnet ();

sub ftpnd
{
my $host = $_[0]; my $Fusername = "XXXXX"; 
my $Fpasswd = "yyyyyy";

my $ftpobj = Net::FTP -> new ($host, Debug => 0, Timeout => 240) or die "Cannot connect $@";

$ftpobj -> login($Fusername,$Fpasswd) or die "Cannot Login ",$ftpobj->message; ;

$ftpobj -> cwd ("ftpvol/relfsw2");
$ftpobj -> binary;

my @Flist = $ftpobj->ls("*");

foreach my $file (@Flist)
           {
             $ftpobj->get($file) or die "can't get file: $!";
           }

$ftpobj -> quit;
return;
}

ftpnd("10.202.14.130");

}
=========================================================