#!/usr/bin/perl
#

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

$service = $ARGV[0];

$tcp4 = `netstat -n -f inet | grep tcp4 | grep ESTABLISHED | fgrep "\.$service " | wc -l | tr -d " "`;
$tcp4 =~ /(\d+)/;
chomp $tcp4;

print "$tcp4\n";
print "$tcp4\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";