use Test::Exception tests => 2;
use Test::More;

sub blah {
    die "died!";
}

throws_ok { blah() } qr/died!/, 'died ok';
is (1, 1, 'one is one');

__END__
ok 1 - died ok
ok 2 - one is one