==========================
## FILE: test.cgi
##
use CGI::Pretty qw( :html3 :standard );

my $cgi = new CGI;

 print $cgi->header,
         $cgi->start_html('Submit User id');

print $head;
print start_form();

my $host = $cgi->param('host');

print "<font color=green> Please Enter the UserID for $host: </font>";
print $cgi->text_field('USER','',10);
print "\t\t".submit('action','Submit');
$cgi->hidden( -name=>'server', -value => $cgi->param('host'));


if (param()) {
  my $test= $cgi->param('action');
  if( $cgi->param('action') eq 'Submit') {
my  $server = $cgi->param('server');

  my $user_id = $cgi->param('USER');
 
  print "UserID: $user_id and HOST: $server " ;
}
}

print endform; ## END of HTML form
print end_html;