die revision 7c478bd95313f5f23a4c958a745db2134aa03244
use if ($^O eq 'VMS'), vmsish => 'hushed';
exit 1; # exit because die() can be noisy