#!perl
use CGI;
my $cgi_object = new CGI;
my $passed_var = $cgi_object->param('pass_this');
print $cgi_object->header,
$cgi_object->start_html,
$cgi_object->start_form,
qq(<input type='text' name='new_text_box' value="$passed_var" />
<input type="submit" />);
$cgi_object->end_form,
$cgi_object->end_html;