#!/usr/bin/perl
#
# $Header: extract.pl,v 3.1 89/01/30 14:43:04 louie Exp $
#
$HOST = '10.2.0.96';
if ($#ARGV != 0) {
	die "Must specify internet address of host.";
}
$HOST = $ARGV[1];
while(<stdin>) {
	if(/^host: $HOST/) {
		s/host: //;
		s/\(/ /g;
		s/\)/ /g;
		s/:/ /g;
		@A = split(' ');
		print $A[3],"\n";
	 }
}