print <<DUMMY_TEST;
ok 1
ok 2
ok 3
ok 4
1..4
DUMMY_TEST

use if $^O eq 'VMS', vmsish => 'hushed';
exit 1;