#!D:/Programme/Perl

use strict;
use warnings;
use Net::FTP;


my $ftp = Net::FTP->new("host.de");        
die "Konnte keine Verbindung aufbauen $!" unless $ftp;
$ftp->login("name", "passwort");                   
opendir(DIR, "C:/temp");
my @inhalt = readdir(DIR);
foreach(@inhalt)
{
    $ftp->put("$_");           #Zeile 17
}
$ftp->quit;