use Net::IPv4Addr qw( :all );
my ($broadcast) = ipv4_broadcast($ip_str, $msk_str);