Select Code to Download

# convert IP addresses to unsigned long integers
my $addr="192.168.10.2";
...

# print
print( $netw );

# calculate broadcast address
my $brodval = ( $addrval & $maskval ) + ( ~ $maskval );

# convert IP addresses to unsigned long integers
my $addr="192.168.10.2";
...
# print
print( "Network:$netw\n" );
print( "Broadcast:$brod\n" );

Network:192.168.10.0
Broadcast:192.168.11.255

sub addrtoint { return( unpack( "N", pack( "C4", split( /[.]/,$_[0] ) 
+) ) ) };
sub inttoaddr { return( join( ".", unpack( "C4", pack( "N", $_[0] ) ) 
+) ) };
...

print( inttoaddr( $netwval ) . "\n" );
print( inttoaddr( $brodval ) . "\n" );