my $FindCard = IO::Socket::INET->new(Proto=>"udp",LocalPort=>58255,PeerPort=>55777,PeerAddr=>"192.168.11.255",Broadcast=>1)
    or die "Can't make UDP socket: $@";
  $FindCard->send("");

##</code><code>##

$FindCard->recv($datagram,120,$flags);