$address = $ENV{'REMOTE_HOST'};
$ipaddress = $ENV{'REMOTE_ADDR'};

 
$redirect = "telnet://" .$ipaddress ;


if ( $in{'port'} ne "" ) {
  $redirect .= "telnet://" . $port;
}

$redirect .= "/";


print "Content-type: text/html\n";
print "Location: $redirect\n\n";
print "You should have been redirected to <a href=\"$redirect\">$redirect</a>";


exit;