#!/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';