#!/usr/bin/perl -wT

use Net::FTP;
print "retrieving file from server\n";
$ftpobj = Net::FTP -> new ("100.eee.yyy.xxx");
$ftpobj -> login("user","pass");
$ftpobj -> cwd ("target_directory");
$ftpobj -> get ("target_file");
$ftpobj -> quit;
print "file size ",-s "target_file"," bytes\n";