#!/usr/bin/perl -w
use strict;

use mship;


my %stats = mship::connection('xxx.19.208.27', '9101');

while (my ($key, $value) = each(%stats))
{
    print "$key = $value\n";
}


print "\n";


my $status = mship::accepts_conn('xxx.19.208.27', '9101') ? "Up" : "Down";
print("Status: $status\n");