#!/usr/bin/perl
my @array = qw (1 2 3 4 5 6 7 8 9 10 11 12 13 14);
foreach my $letter (@array) {
	my $real = `nslookup cvsup$letter.freebsd.org | grep Name`;
	$real =~ s/Name:\s+//g;
	chomp $real;
	my $output = `ping -c1 cvsup$letter.freebsd.org`;
	$output =~ /time=(\d*\.\d*) ms/;
	print "cvsup$letter.freebsd.org\t$1\t$real\n";
}