IO::Socket::IP bug

gistfile1.pl

use strict;
use IO::Socket::IP;
use Socket 'IPPROTO_TCP';
use IO::Select;

my ($err, @res) = Socket::getaddrinfo("www.google.com", 80, {protocol => IPPROTO_TCP});
die $err if $err;

my $ip = IO::Socket::IP->new(Blocking => 0, PeerAddrInfo => \@res) or die $@;
my $sel = IO::Select->new($ip);
$sel->can_write(10) or die "can't connect in 10 sec";

warn "Connected!";