use Net::FTP;

$ftp = Net::FTP->new( "127.0.0.1", Debug => 0 )
    or die "Cannot connect to 127.0.0.1: $@";

$ftp->login( "test", 'test' )
    or die "Cannot login ", $ftp->message;

$ftp->cwd("/tmp")
    or die "Cannot change working directory ", $ftp->message;

$ftp->put("x.pl")
    or die "get failed ", $ftp->message;

$ftp->quit;