$ftp = Net::FTP->new("192.168.xx.xx") or die ("Connect failed!");
print "Connected.\n";
$ftp->login("xxx","xxx");
$ftp->cwd("/usr/db/data");
print "Uploading KO_Targ.csv.\n";
$ftp->put("KO_Targ.csv");