#!/app/ecb/perl/bin/perl -w
use Net::FTP;

$FTP_HOST="machine";
$FTP_USER="ftp";
$FTP_PASSWORD="ftp";

$FTP_SRC_FILENAME="pub/src_file";
$FTP_DST_FILENAME="./results";

$ftp= new Net::FTP( ${FTP_HOST} );
$ftp->login( ${FTP_USER}, ${FTP_PASSWORD} );
$ftp->binary;
$ftp->get( ${FTP_SRC_FILENAME}, ${FTP_DST_FILENAME});
$ftp->quit;

# End of script