Select Code to Download

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

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

while (<BPCONF>)
{
     if (/SERVER = cluster/ && $ps eq "daemon")
...
           exit (100);
     }
}