sub listener{
  my ($ip, $port) = @_;
  my ($sock, $tmp);

 
  #print "ip is -> ".$ip."\n";
  #print "port is ->".$port."\n";


  $sock = IO::Socket::INET->new(Listen    => 100,
                                LocalAddr => $ip,
                                LocalPort => $port,
                                Proto     => 'tcp') || die "Can't set up the listener -> $@\n"; 


  while ($tmp = $sock->accept()) {
        $sock->send("Hallo dort! :)");

  }

}

while (my $tmp = $sock->accept()) {
      $tmp->send("Hallo dort! :)");
}

$sock->close()