1*0Sstevel@tonic-gateuse if ($^O eq 'VMS'), vmsish => 'hushed'; 2*0Sstevel@tonic-gateexit 1; # exit because die() can be noisy 3