while(<BPCONF>) {
        (my $server) =
               unpack '@10 A10', $_;
        if (( $_ = "SERVER = cluster") &&  (${ps} != "deamon"))  {
                print "Server entry is correct\n";
                exit 110;
                } else {
                print "Server entry is incorrect\n";
                exit 100;

        }
};