Perl: Comment obtenir IO::Socket::INET expire au bout de X secondes?

Je suis en train d'essayer de se connecter à certains d'accueil, en utilisant des données invalides de port, et je veux obtenir expire au bout de X secondes. Comment faire ?

Mon code:

 $sock = new IO::Socket::INET(
                  PeerAddr => $_[0],
    PeerPort => $_[1],
    Proto => 'tcp',
    Timeout => 2
    );

OriginalL'auteur code2be | 2010-08-25