use strict;
use warnings;

[...]

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: $@"; 

my $recv = IO::Socket::INET->new(Proto=>"udp",LocalPort=>58255)
or die "Can't make UDP socket: $@"; 

[...]

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

[...]