my $OSTY;
if (not exists $ENV{OSTYPE}) {
    warn "Couldn't determine OSTYPE";
    $OSTY = "<unknown>";
} else {
    $OSTY = $ENV{OSTYPE}
};