#!/usr/bin/perl

print "Content-type: text/html\n\n";
use CGI 'param';
$fn = param('fname');
print << "EOF";
<HTML>

<HEAD>
<TITLE>Capturing a parameter</TITLE>
</HEAD>

<BODY>
<H1>Hi there $fn</H1>
</BODY>

</HTML>
EOF

