Probleme mit Socket-Initialisierung in Verbindung mit "strict"

[Claudio]

Hallo,

ich habe ein Perl-Skript mit Socketunterstützung geschrieben.

Mein Skript funktioniert auch sehr gut, wenn ich aber ein "use strict" verwende, bekomme ich in folgender Zeile:

$socket = IO::Socket::INET->new(PeerAddr => $remote_host,
                                PeerPort => $remote_port,
                                Proto    => "tcp",
                                Type     => SOCK_STREAM);

folgende Fehlermeldung:

"Bareword "SOCK_STREAM" not allowed while "strict subs" in use at /home/..... line 103.

Was gilt es zu tun ?

Viele Gruesse und danke im voraus,

Claudio