#!/usr/bin/env perl 
use strict;
use warnings;
use Net::Telnet;

my $nt = Net::Telnet->new (Host => 'www.perlmonks.org', Port => 80, Timeout => 20);
$nt->prompt ('/<\/html>/');
my @output = $nt->cmd ("GET / HTTP/1.1\nHost: www.perlmonks.org\n\n");
print "Here are the HTTP headers:\n\n";
for my $line (@output) {
    print $line;
    last if length ($line) < 3;
}
print "End of headers.\n";
$nt->close;
exit;