#!/usr/bin/env perl
use Socket;

foreach (@ARGV) {
	printf("%s\n", inet_ntoa(inet_aton($_)));
}
