sub senddata{

 
my $socket = new IO::Socket::INET (
                                  PeerAddr  => $server_ip,
                                  PeerPort  => $server_port,
                                  LocalPort  => $localport,
                                  Proto => 'tcp',
                               )
 or die "socket ERROR: couldn't connect to server $server_ip:$server_port\n";

 my $send_data = "blabla";
 
 $socket->send($send_data);
 
 sleep(1);
 
 $socket->recv($recv_data,1024);

 #.... wird hier mehremals senden und empfangen
 close $socket;

}