Select Code to Download

sub not_ok(&$) {
my $coderef = shift;
...

# call this way
not_ok( sub { mysub('bad data') }, 'message')