my $newfilename = $q->param('filename');
my $file_given = $q->upload('uploaded_file');
starting_page();
#my $ftp = connect_to_ftp();

my $action    = $q->param('action') || "none";
print "aktion = $action datei $file_given";

if ($action eq "none") {
    #starting_page();
} elsif ($action =~ /Upload/i) {
    if ($file_given) {
        upload_file(
		#$q->upload('uploaded_file'),
		$file_given,
		$newfilename,
		);
    } else {
	print "Bitte eine Datei zum Hochladen auswählen!";
	}
}