#!/usr/bin/perl 

  use strict;
  use warnings;
  use Test::More 'no_plan';

  ok 1, 'this works';
  $SIG{__DIE__} = sub { die @_ };
  ok no_such_sub(), '... no such sub';

##</code><code>##

  Test-Harness-2.65_02 $ perl -Ilib bin/prove -v test.pl 
  test....ok 1 - this works
  Undefined subroutine &main::no_such_sub called at test.pl line 9.
  1..1
  ok
  All tests successful.
  Files=1, Tests=1,  1 wallclock secs ( 0.22 cusr +  0.02 csys = 0.24 CPU)

##</code><code>##

  #!/usr/bin/perl 

  use strict;
  use warnings;
  use Test::More tests => 1;

  ok 1, 'this works';
  $SIG{__DIE__} = sub { die @_ };
  cleanup();