#!/usr/bin/perl print <<'END_TESTS'; 1..2 ok 1 - this is a test not ok 2 - this is another test END_TESTS