chomp($_= `uname -r`); $? and die "platform $?";
m/^B\.(\d+\.\d+)$/ or die "$_ ?";
$platform= "HP-UX$1";
+} elsif ($uname =~ m/^AIX/) {
+ chomp($_= `uname -rv`); $? and die "platform $?";
+ m/^\d+ (\d+)$/ or die "$_ ?";
+ $platform= "AIX$1";
} else {
die "$uname ?";
}