use Net::FTP::Common;
my $common_cfg = { Host => 'ftp.servername.com', 
				User => 'username',
				Pass => 'password',
				RemoteDir  => '/files'
				};    

my $ftp = Net::FTP::Common->new($common_cfg, Debug => 0);
$ftp->get("somefile.txt");
$ftp->quit;