#!/usr/bin/perl -w

use strict;
use CGI qw/:standard/;

my $q = new CGI;

print header, start_html;

if($q->param('name')) {
   print h1("You becha this works.!"), p("You entered: ". $q->param('name'));
}
else {
print<<END
<form action="test.cgi" method="POST">
<table>
<tr>
   <td><input type="text" name="name"></td>
</tr>
</table>
<input type="submit">
</form>
END
;
}

print end_html;