sub upload_file {
my ($file, $newfilename) = @_;
print "Datei: $file neuer Name: $newfilename";
print $q->br;
while (<$file>) {

    print; #Testausgabe des Dateiinhalts
}
my $ftp = connect_to_ftp();
$ftp->put($file, $newfilename) or print "Could not upload files: $!";
$ftp->quit;
$action = "none";
}