use MyDie;

sub testfn {
    print "in testfn\n";
    MyDie::mydie("whoops\n");
    print "end testfn\n";
}

eval { testfn() };
$@ and print "caught: '$@'\n";
testfn();
print "end test program\n";