Help for this page

Select Code to Download

Select or download this

#!/usr/binperl
use strict;
...
     or die "Could not open $filename : $!"; # add filename into error
+ message
print UPLOADFILE "Test";
close UPLOADFILE;