Help for this page

Select Code to Download


  1. or download this
    
   print <<END_ERR_HTML;
...
</form>
</html>
END_ERR_HTML
  2. or download this
    print "Content-Type: text/html\n\n";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
...

$data = $scald[0];
print "$data";
  3. or download this
    #!/usr/bin/perl
$now = name;
...

print "Location: open.cgi?id=$now\n\n";
exit;