You are looking at a very old, but free version of the course. If you are interesed the most recent version, check it out on the Perl Maven site.

8.6. Net::Telnet for HTTP

Example 8-4. examples/telnet/

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;

If you are interested in on-site trainings by the author, please contact me directly.