#!perl
use strict;
use Net::FTP::Common;

my $cfg = { Host      => 'xxx.xxx.xxx.xxx', 
           User      => 'xxxx',
           Pass      => 'xxxx',
           RemoteDir => '/dir',
           LocalDir  => 'C:\Dir',
           LocalFile => 'file.txt',
   };
my $ftp = Net::FTP::Common->new($cfg, Debug => 1);
$ftp->get(File => 'file.txt');
$ftp->quit;