print <<DUMMY_TEST; ok 1 ok 2 ok 3 ok 4 1..4 DUMMY_TEST use if $^O eq 'VMS', vmsish => 'hushed'; exit 1;