#!/usr/bin/perl

use strict;
use Socket qw(inet_ntoa inet_aton);

my $packed = inet_aton($ARGV[0]);
my $ip = inet_ntoa($packed);

print "$ARGV[0] resolves to $ip\n";