sub parse_ipv4 {
   local *_ = \(@_ ? $_[0] : $_);
   return unpack('N', pack('C4', split(/\./)));
}

##</code><code>##

use Socket ();

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

##</code><code>##

print(parse_ipv4('202.227.44.16'), "\n");
# 3403885584