use strict;
use warnings;

use IO::Socket::INET;

my ( $data , $length );

$| = 1;

my $Monitoring_Sitzung = new IO::Socket::INET ( 
  PeerAddr => 'beispiel.de' ,
  PeerPort => '80'          ,
  Proto    => 'tcp'         ,
  Blocking => 0             ) 

  or die "ERROR bei Erstellung des Sockets : $ !" , "\n";

print "TCP Verbindung zu Server : ERFOLGREICH !" , "\n";