sub UPLOAD {
    $wfile = $cgi->param("toping");
    open(my $wfin, '<', $wfile) or die "Error opening $wfile: $!";

    $wfname = 'toping';
    open (my $datin,">", "/home/deruytja/webserver/rifucgi/temp_ul/$wfname") or die 'Error processing file INPUT: ',$!;
    binmode $wfin;
    binmode $datin;
    while (read $wfin, my($data), 1024) {
        print $datin $data
    }                      	#Upload Teil des Scripts
}