use Net::Telnet;

$telnet = new Net::Telnet ( Timeout=>10,
                            Errmode=>'die',
                            Port => 80,
                            Prompt => '/\'.$/');

$telnet->open('www.whatever.com');
$output=$telnet->cmd('GET / ');
print $output;