# generate and return 32-bit integer representation of IP address
$IPaddr =~ s/\./0/g;   
my $rep32bit = pack('N', "$IPaddr"); # unsigned long in 'network order'