$ftp = Net::FTP->new("ftp.host.com", Debug => 0) || die "Cannot connect to some.host.name: $@";
$ftp->login("user",'pass') || die "Cannot login ", $ftp->message;
$ftp->cwd("/disk2/Danny")||die "Cannot change working directory ", $ftp->message;
$ftp->get("cordis_grant_info.txt",$file)|| die "get failed ", $ftp->message;