use v5.36;

use Carp qw(croak);
use Socket qw(AF_INET AF_INET6 inet_ntop inet_pton);
use Data::Validate::IP qw(is_ipv4 is_ipv6);

my $ip = $ARGV[0];

if (is_ipv4 $ip) {
   print inet_pton AF_INET, $ip;
}
elsif (is_ipv6 $ip) {
   print inet_pton AF_INET6, $ip;
}
else {
   croak 'Not a valid ip: ' . $ip;
}