use Net::FTP;

my $host = 'localhost';
my $user_name = 'user';
my $pass = 'password';
my $file = 'somefile';

my $FTP = Net::FTP->new($host) or die $!;
$FTP->login($user_name,$pass) || die $!;
$FTP->put($file) || die $!;