perl -e 'package foo; sub new { return bless {}} package main; my $new = new foo(); use Test::More qw~no_plan~; diag(qq~High level preliminary testing...~); ok(1==1,qq~basic~); ok($new->isa(qq~foo~), qq~Is a foo~); diag(qq~Use Case 1: Editing customers...~);'