Quote:
Originally posted by icedemon
Code:
#!/usr/bin/perl
print "Content-type: text/plain\n\n";
if ($ENV{'QUERY_STRING'}) {
open(FILE, ">>file.txt") || die (print "$!\n");
print FILE $ENV{'QUERY_STRING'} . "\n";
close(FILE);
}
Here is some perl code you can use.
|
you can add to the code after the first print statement...for example:
print "<b>hello there</b>";
to print to the browser....just remember the semicolon to terminate the statement and to "escape" things like a quotation mark:
print "<a href=\"./dir/index.html\">home</a>";
see... add a backslash before the quotation mark: \"