use Socket qw/ inet_aton /;

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

##</code><code>##

select inet_ntoa( ipnum ) from iptable