Shell Programming and Scripting

Source code
 
$ftp->login() or die "not log on to destination server $server ";
$ftp->cwd("$destdir") or die "\ not able to change directory to $destdir on $server ****\n";

Output:
 
Net::FTP=GLOB(0x402fc020)>>> CWD /BANKING/US
Net::FTP=GLOB(0x402fc020)<<< 550 Failed to change directory.

ftp US.com
cd /BANKING/US
files are listed.

$destdir =~ s/\s+$//;
$ftp->login() or die "not log on to destination server $server ";
$ftp->cwd("$destdir") or die "\ not able to change directory to $destdir on $server ****\n";