$wfile = $cgi->param("toping");                                                #Upload Teil des Scripts
$wfname = 'toping';                                #Upload Teil des Scripts
open (my $DAT,">", "/home/deruytja/webserver/rifucgi/temp_ul/$wfname") or die 'Error processing file INPUT: ',$!; 			#Upload Teil des Scripts
print $DAT $wfile;