require Socket;

# socktype is set to -1 to make getaddrinfo return an error
my ($gaiErr)=Socket::getaddrinfo('perl.org',80,{socktype => -1});
my ($osErr,$extErr)=($!,$^E);

print "\$gaiErr=\"$gaiErr\" (".($gaiErr+0).")\n";
print "\$osErr=\"$osErr\" (".($osErr+0).")\n";
print "\$extErr=\"$extErr\" (".($extErr+0).")\n";