} elsif ($uname =~ m/^HP\-UX/) {
chomp($_= `uname -r`); $? and die "platform $?";
m/^B\.(\d+\.\d+)$/ or die "$_ ?";
} elsif ($uname =~ m/^HP\-UX/) {
chomp($_= `uname -r`); $? and die "platform $?";
m/^B\.(\d+\.\d+)$/ or die "$_ ?";
%ncipherdom= ('cam' => 'ncipher.com',
'bos' => 'ncipherusa.com');
%ncipherdom= ('cam' => 'ncipher.com',
'bos' => 'ncipherusa.com');