$ perl tmd.t
1..4
ok 1 - Expect Huey on the cello
ok 2 - Expect Dewey on the trombone
ok 3 - Expect Louie on the piano
ok 4 - Expect no more than 3 rows

$ prove tmd.t
tmd....ok
All tests successful.
Files=1, Tests=4,  0 wallclock secs ( 0.07 cusr +  0.01 csys =  0.08 CPU)