#!/usr/local/bin/perl

open(PS, "/usr/ucb/ps ax|grep metaserverII |grep -v grep|") || die "Error starting ps!\n";

if($ps = <PS>)
{
   exit;
}
else
{
  print("Starting metaserver\n");
  chdir("/big/unbelver/netrek/metaserver");
  exec("metaserverII -d");
}