I also found this works
#!/usr/bin/perl
use Net::Telnet;
my $value;
$i=0;
print ("Content-type: text/html\n\n");
print "<html>\n";
#print "<meta http-equiv=\"refresh\" content=\"1\">\n";
print "<body>\n";
$input_string = $ENV{'QUERY_STRING'};
print "Value = $input_string<br>";