print <<DUMMY_TEST; 1..4 ok 1 ok 2 ok 3 DUMMY_TEST eval "use vmsish 'hushed'" if ($^O eq 'VMS'); exit 1;