$wfile = $cgi->param("toping");
$wfname = 'toping';
open (DAT,">/home/deruytja/webserver/rifucgi/temp_ul/$wfname") or die 'Error processing file INPUT: ',$!;
binmode $wfile;                                                                

##</code><code>##

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