#! c:/perl/bin/perl.exe
use strict;
use warnings;

use IO::Socket;

my $Sock = IO::Socket::INET->new('149.149.149.149',80) or die "Cannot connect $@\n";

$Sock->read(my $data, 1024) until $Sock->atmark;