my $in = $q->upload('uploaded_file');
my $save_as = "demo.txt";
open(my $out, "> $save_as") or die "Cannot write to '$save_as': $!";
print $out <$in>;
close($out);