##################################
$ftp = Net ::FTP->new("xxx.xxx.xxx",Timeout=>30,Debug=>1)
$ftp->login($usr,$paswd)
$ftp->cwd($dir)
$ftp->get($filename);
quit;
#################################

##</code><code>##

#########################################
ftp -nv ${ipaddress} << !!! > ${LOGFile}
        user ${USER} ${PASSWD}
	cd ${FTPHOME}
	get ${File}
        quit
!!!
#############################################