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

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

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

my $status = mship::stat->('xxx.19.208.27', '9101');
print "\nStatus is $status\n";