#!/usr/bin/perl -w
use Net::IP;

my $tip = $ARGV[0];
my $ip = new Net::IP ($tip);
print $ip->intip()."\n";

exit