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

unless(defined($socket))
{
print "Port $port (TCP) ist geschlossen!\n";
exit 0;
}
print "Port $port (TCP) ist offen\n";