##

#!/usr/bin/perl

use strict;
use warnings;
use CGI;
my $q = new CGI;

my $partNumber = $q->param('textBox');

print $q->header, $q->start_html;
print $q->p("Part Number = $partNumber");
print $q->end_html;