#!/usr/bin/perl -w

my $username = "foobar";
my $password = "secret";
my $remote_dir = "public";
my $remote_log_dir = "../logs";

my $local_dir = "/home/user/upload/";
my $local_log_dir = "/home/user/logs/";
chomp (my @localfiles = `ls $local_dir`);

use Net::FTP;

my $ftp = Net::FTP->new("mysite.org") || die "Can't connect: $@\n";
$ftp -> login($username, $password) || die "Couldn't login.";
$ftp -> cwd($remote_dir);
my @remotefiles = ($ftp -> ls);
print "@remotefiles\n";

foreach (@localfiles) {
        $ftp->put($local_dir.$_);
}

# now fetch the logfiles
$ftp -> cwd($remote_log_dir);
my @logfiles = ($ftp -> ls);

foreach (@logfiles) {
       $ftp->get($_, $local_log_dir.$_);
}

# and quit
$ftp->quit;