#!/usr/bin/perl -w
use strict;
use Net::FTP;
use Net::FTP::File;

my $ftp = Net::FTP->new("updraft.unl.edu", Passive => 0);
$ftp->login("uas",'grruvi');

$ftp->cdup;
$ftp->cwd("/home/uas/Scripts/GPS/users");
$ftp->put("test.txt","test.bak") or die $ftp->message;
$ftp->move("test.bak","test") or die $ftp->message;

$ftp->quit;