Select Code to Download

    package Silly::Die;
    use strict;
...
    sub trying { $OUTPUT ? $OUTPUT->($!) : $! }

    1;

    use Silly::Die sub { qq(I died with: "@_") };
    open FILE, "foo" or die trying;

  I died with: "No such file or directory" at ./test.pl line 9.