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