Perl FTP

If you want to Upload files via Perl and FTP. you could use this script:

#!/usr/bin/perl
use File::Basename;
use Net::FTP;
$ordner =time();
my $directory =  "backupordnerpfad";
my @parts = split(/\/, $directory);
my $length = $parts;
my $ordnerDir = $parts[$length-1];
$ftp = Net::FTP->new("www.myftpserver.at", Debug => 1)
    or die "Cannot connect to hostname: $@";
$ftp->login("username", "passwort")
    or die "Cannot login ", $ftp->message;
$ftp->cwd("/www")
    or die "Cannot change working directory ", $ftp->message;
$ftp->mkdir($ordner);
$ftp->cwd($ordner);
# set binary mode which is needed for image upload
$ftp->binary();
opendir(DIR,$directory);
my @files = readdir(DIR);
foreach my $file (@files)
    {
    if (not -d $file)
        {
        $ftp->put("$directory/$file");
        }
    }
$ftp->quit();
sleep(1000);