Select Code to Download

$ftp=Net::FTP->new($host,Timeout=>240) or die "connect\n";
 
print "Created new FTP method\n" ; 

$ftp->login("xxx","yyy") or die "cannot login\n";

Net::FTP>>> Net::FTP(2.72)
Net::FTP>>>   Exporter(5.58)
...
Net::FTP=GLOB(0x1a04110)>>> PASS ....
Net::FTP=GLOB(0x1a04110)<<< 530 User GGGG: can't change directory to \
+\DATA\ GGGG $.
Cannot login

ftp> open
To a.aaa.aaa.aaa
...
Password:
530 User ggggg: can't change directory to \\gggg\ddddd.
Login failed.