Hello guys, I am new with the IO::Socket::INET, and when I run this code:

#!/usr/bin/perl
use warnings;
use strict;
use IO::Socket::INET;
my $target=<STDIN>;
chomp $alvo;
my $socket = IO::Socket::INET ->new(
                         PeerAddr =>"$alvo",
                         PeerPort =>"80",
                         Timeout =>"10",
                         Proto =>"tcp
);
if ($socket){
     print "Works!";
} else {
     print "fail!";
}
[download]

And i write: http://www.google.com , but returns "fail!", I want to return "works!", what I shoud done? what is wrong? Thanks guys, I liked this forum.