#!/usr/bin/perl

$hostname = $ARGV[0];
$result = `traceroute -m 1 $hostname`;
$result =~ /$hostname .(.+)\)/;
$ip = $1;
print "$ip\n";

#$result = `wget `;
#print $result;

