#!/usr/bin/perl
    use Net::Telnet ();
  	
    	$server = "xxxx.xxxxxxx.xxx";
	$cmd = "GET / HTTP/1.1\n\n";

    $t = new Net::Telnet ("Timeout" => 10, "Port" => 81
			  "Prompt" => '');
    $t->open($server);
   
   @lines = $t->cmd($cmd);
   print @lines;