#!/usr/bin/perl

use strict;
use warnings;

use Net::Telnet;
my $t = Net::Telnet->new(
                         Timeout => 10,
                         Port => 80
                        );
$t->open('www.google.com');
$t->print('GET /');

my $line = 0;
while (my $o = $t->getline())
{
    print ++$line . '. ' .$o;
}