#!/usr/bin/perl
my $host = gethostbyname($ARGV[0]);
print $host ? "Got host $host\n" : "Choked!";