use Socket qw/ inet_aton /;

sub ipToNum {
  my $ip = shift;
  return unpack "N", inet_aton( $ip );
}