Help for this page

Select Code to Download

Select or download this

use Socket qw( inet_aton inet_ntoa );

...
my $broadcast = $ip | ~$mask;

print(inet_ntoa($broadcast), "\n");  # 10.0.0.159