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);
     }
}

##</code><code>##

my $server = substr($_, 10, 10);
my ($server) = /^.{10}(.{10})/;

##</code><code>##

while (<BPCONF>)
{
     if (/SERVER = cluster/ && $ps eq "daemon")
     {
           print "Server entry is correct\n";
           exit (110);
     }
     else
     {
           print "Server entry is incorrect\n";
           exit (100);
     }
}