while (<BPCONF>)
{
     my ($server) = unpack ("@10 A10", $_);

     if (($server eq "SERVER = cluster") && ($ps ne "daemon"))
     {
          print "Server entry is correct\n";
          exit (110);
     }
     else
     {
          print "Server entry is incorrect\n";
          exit (100);
     }
}