package TEST::TEST;
use strict;

use threads;

use IO::Socket::Multicast;

our $sock = undef;

sub createsock {
  my $create = shift @_;
  if ($create) {
    $sock = IO::Socket::Multicast->new(Proto=>'udp',LocalPort=>2200);
    $sock->mcast_add('226.1.1.2') || die "Couldn't set group: $!\n";
  }
}

sub mysub1 {
  my ($sub, $msg) = shift @_;

  print "start sub $sub\n";
  #my $key = getc(STDIN);
  my $data;
  if ($sock == undef) {
    $sock = IO::Socket::Multicast->new(Proto=>'udp',LocalPort=>2200);
    $sock->mcast_add('226.1.1.2') || die "Couldn't set group: $!\n";
  }
  $sock->recv($data,1024);
  print "end sub $sub\n";
}

sub mysub2 {
  my ($sub, $msg) = shift @_;

  print "start sub $sub\n";
  print "msg from sub $sub: $msg\n";
  print "end sub $sub\n";
}

1;