$file_contents = $query->param('file');
$file_contents =~ m/^.*(\\|/\)(.*)/;
my $name = $2;

open (FILE, ">$name") or die $!;

my $data =  do {local $/; <FILE>; };

print STDOUT $data;