use Socket ();

sub parse_ipv4 {
   local *_ = \(@_ ? $_[0] : $_);
   my $packed = Socket::inet_aton($_);
   return unless defined $packed;
   return unpack('N', $packed);
}