use Net::FTP;
my $servert = "xxxx";
my $logint = "xxxx";
my $passt = 'xxxx';
my $file = "wftp1.txt";    
my $targetdir = "/xxx/xxxx/xxxx/xxx";

    $ftp = Net::FTP->new("$servert", Debug => 0);
    $ftp->login("$logint",'$passt');
    $ftp->cwd("$targetdir");
    $ftp->put("$file");
    $ftp->quit;