use Net::FTP;
    
$ftp = Net::FTP->new("targetsystem", Debug => 0);
$ftp->login("anonymous");
$ftp->put("c:\\test11.pl");
$ftp->quit;