Select Code to Download

#!/usr/bin/perl

...
  $s->mcast_send($data) or die "$! on send";
  sleep 1;
  }

#!/usr/bin/perl

...
  $s->recv(my $data, 1024);
  print $data;
  }