my $desc;
sub TEST { $desc = $_[0] };

TEST "can't slurp in void context";
# your test here
ok 1, $desc;