my $socket = IO::Socket::INET->new(PeerAddr => $peer,
                                   PeerPort => '8023',
                                   Proto    => 'tcp',
				   Blocking => '1') 
or die " $name:   Fehler: Kann keine Verbindung zu $peer aufbauen. Grund:\n $! \n";

# Jetzt mit Blocking =>1
#...
# Jetzt mit Blocking =>0
#...