use strict;
use warnings;
use Socket;

my $host = 'localhost';
my $port = shift || '8888';
my $timeout = 3;

my $result = portAlive( 'localhost', 8888);
print "result = $result\n";
print `net start "CONTENTdm Monitor 9998"`;
exit;