use Socket qw( inet_aton inet_ntoa );

my $ip        = inet_aton('10.0.0.155');
my $mask      = inet_aton('255.255.255.240');
my $broadcast = $ip | ~$mask;

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