Win32::IsWin95 == 1<br>
    &amp;&amp; hex $build == 1998;

##</code><code>##

$build = (unpack &quot;A4&quot;x2, sprintf
    &quot;%08X&quot;, (&amp;Win32::GetOSVersion)[3])[1];

##</code><code>##

Alpha: grep(/VMS_AXP/, @INC)
Vax:   grep(/VMS_VAX/, @INC)

##</code><code>##

Stratus: grep(/VOS/, @INC)
Stratus XA: grep(/860/, @INC)
Stratus HP 7100
  or 8000: grep(/7100/, @INC)
Stratus HP 8000: grep(/8000/, @INC)