example


1
2
3
4
5
6
7
8
9
10
11
12

#!/usr/bin/env perl

print while <DATA>;

__END__
Content-Type: text/html

<form action="cforum" method="post">
	<p><label for="name">Name</label><input type="text" name="name" value="" id="name">
	<p><textarea name="text" rows="8" cols="40"></textarea>
	<p><input type="submit" value="Continue &rarr;"></p>
</form>