$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";

##</code><code>##

Net::FTP>>> Net::FTP(2.72)
Net::FTP>>>   Exporter(5.58)
Net::FTP>>>   Net::Cmd(2.24)
Net::FTP>>>   IO::Socket::INET(1.27)
Net::FTP>>>     IO::Socket(1.28)
Net::FTP>>>       IO::Handle(1.24)
Net::FTP=GLOB(0x1a04110)<<< 220  FTP server (Hummingbird Ltd. (HCLFTPD) Version 10.0.0.0) ready.
Created new FTP
Net::FTP=GLOB(0x1a04110)>>> user GGGG
Net::FTP=GLOB(0x1a04110)<<< 331 Password required for GGGG.
Net::FTP=GLOB(0x1a04110)>>> PASS ....
Net::FTP=GLOB(0x1a04110)<<< 530 User GGGG: can't change directory to \\DATA\ GGGG $.
Cannot login

##</code><code>##

ftp> open
To a.aaa.aaa.aaa
Connected to a.aaa.aaa.aaa.
220  FTP server (Hummingbird Ltd. (HCLFTPD) Version 10.0.0.0) ready.
User (a.aaa.aaa.aaa:(none)): username
331 Password required for ggggg.
Password:
530 User ggggg: can't change directory to \\gggg\ddddd.
Login failed.