use strict;
use Net::FTP;


my $ftp_connection=Net::Ftp->new('127.0.0.1');
$ftp_connection->login("anonymous","");
$ftp_connection->binary();

if($ftp_connection->put('D:\temp\pos.txt','/root/pos.txt')) {
    print "successful transfer"
} else {
    print "unsuccessful transfer"
}
$ftp_connection->quit;

Can't locate object method "new" via package "Net::Ftp" (perhaps you forgot to load "Net::Ftp"?) 

ppm 4.19 (ActivePerl 1800)
Copyright (C) 2013 ActiveState Software Inc.  All rights reserved.

ppm> install libnet
No missing packages to install

ppm>