Help for this page
my $filename = $q->param('filename'); &uploadFile($filename); ... sub uploadFile { my $file = shift; ...
sub uploadFile { my $file = $q->param('filename'); ...