8.6. Net::Telnet for HTTP

Example 8-4. examples/telnet/telnet_http.pl

#!/usr/bin/perl
use strict;
use warnings;

use Net::Telnet ();
my $t = Net::Telnet->new(
		Timeout => 10,
		Host    => 'localhost',
		Port    => 80,
	);
 
$t->print("GET /\n") or die $!;
while (my $line = $t->getline) {
	print $line;
}