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