my $file = $cgi->upload(file);

my $fname = time;

open (DAT,">test/$fname") or die 'Error processing file: ',$!;

binmode $file;
binmode(DAT);

my $data_file;
while(read $file,$data_file,1024) {
  print DAT $data_file;
}
close(DAT);