#!/usr/bin/perl use strict; use warnings; use Test::More tests => 3; pass("This is fudge"); subtest 'Here comes the fudge' => sub { pass("This is white chocolate fudge"); pass("This is dark chocolate fudge"); }; pass("Fudge is fattening"); done_testing();