use Net::FTP;
my $hostname="hostname";
my $user="user";
my $password="pass";
$ftp=Net::FTP -> new("$hostname",Debug=>1) or die ("Connect failed");
$ftp->login("$user","$password");
$ftp->binary;
$ftp->put("filename.ext")