#!/usr/bin/perl -w
use strict;
use Net::FTP;
use CGI::Carp qw(fatalsToBrowser warningsToBrowser);

my $home="mysite.com";
my $username="username";
my $password="password";
my $directory="data/edit";
my $filename="data.txt";



my $ftp = Net::FTP->new("$home")    or die "Can't connect: 1 $@\n";
$ftp->login($username, $password)       or die "Couldn't login - 1\n";
$ftp->cwd($directory)                   or die "Couldn't change directory - 1\n";
$ftp->get($filename)                    or die "Couldn't get $filename - 1\n";
my @lines = $ftp->ls("/data/edit");

$ftp->quit;

print "Content-type: text/html\n\n";

&PUT($filename);

#============
  sub PUT
  {
my $away="myothersite.com";
my $awayname="awayname";
my $awaypass="awaypass";
my $awaydir="data/edit";

my $ftp = Net::FTP->new("$away")    or die "Can't connect: $@\n";
$ftp->login($awayname, $awaypass)       or die "Couldn't login - 2\n";
$ftp->cwd($awaydir)                   or die "Couldn't change away directory - 2\n";
$ftp->put($filename)                    or die "Couldn't put $filename - 2\n";
$ftp->quit;

print "Your file, <br>$filename, <br> has been successfully uploaded.\n";

}
  #============




print "<br>@lines<br>";