Help for this page
my $error = undef; my $directory = "./tmp/"; ... $error = 'Could not create file'; } close($filename);
my $filename = $q->param("filename"); &uploadFile("$filename");
&uploadFile($filename);