use Test::More;

ok($yes, "test ...");
is($this,$that, "test ...");
# many of these ....