my $OSTY;
if (not exists $ENV{OSTYPE}) {
    warn "Couldn't determine OSTYPE from environment - using $^O";
    $OSTY = $^O;
} else {
    $OSTY = $ENV{OSTYPE}
};