Select Code to Download

#!/usr/bin/perl
use CGI qw(:standard);
...
my $cgi = CGI->new;
print $cgi->header;
if ($cgi->param("name") ne "") { print "Welcome " . $cgi->param("name"
+) }

<form method=post action=yourscript.pl>
<input type=text name=name>
<input type=submit name=submit>
</form>