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";

##</code><code>##

$gaiErr="La prise en charge du type de socket spécifié n" (10044)
$osErr="Illegal byte sequence" (42)
$extErr="La prise en charge du type de socket spécifié n’existe pas dans cette famille d’adresses" (10044)

##</code><code>##

$gaiErr="ai_socktype non supporté" (-7)
$osErr="No such file or directory" (2)
$extErr="No such file or directory" (2)