#!/usr/bin/perl
#

if ( $ARGV[0] eq "" )
{
	print "Usage: $0 <hostname>\n";
	exit;
}

$hostname = $ARGV[0];

$ping = `ping -c3 -n -q $hostname | tail -2`;

#print "$ping";

$ping =~ /(\d+\.?\d*)\/(\d+\.?\d*)\/(\d+\.?\d*)\/(\d+\.?\d*)/;
#print "$1\n";

$time = $2 * 1000;
print "$time\n";

#print "$3\n";
#print "$4\n";

$ping =~ /(\d+)% packet loss/;
print "$1\n";

# uptime
$uptime = `uptime`;
$uptime =~ /up (.*?),/;
print "$1\n";

# os, os release, machine name

$os = `uname -s`;
chomp $os;
$osrel = `uname -r`;
chomp $osrel;
$name = `uname -n`;
chomp $name;

print "$name running $os $osrel\n";