creating a test w/o a plan

no_plan.pl

#!/opt/local/bin/perl

use strict;
use warnings;
use Test::More;

my $name = 'barney';
my $status = 'in trouble';
ok($name, 'we have $name');
isnt($name, '', "\$name isn't empty");
isnt($name, 'fred', "\$name isn't fred");
is ($name, 'barney', 'name is barney');
like($status, qr/trouble/i, "$name is in trouble");

done_testing();