#!/usr/bin/perl -w
use strict;
use Socket;
while(<STDIN>) {
    s/\s+//g;
    chomp;
    my $packed_ip = gethostbyname( $_ );
    if ( defined $packed_ip ) {
        print inet_ntoa($packed_ip) . "\n";
    }
    else {
        print "Couldn't resolve $_\n";
    }
}