Help for this page

Select Code to Download


  1. or download this
    read(STDIN,$form_data,$ENV{'CONTENT_LENGTH'});
open (FILE,""something.log");
print $form_data;
close(FILE);
  2. or download this
    # Get form information
if ($ENV{'REQUEST_METHOD'} eq "GET") { # GET Method
...
print <FILE>; # Print file

close(FILE); # Close and unlock the file