Help for this page

Select Code to Download


  1. or download this
        package Silly::Die;
        use strict;
    ...
        sub trying { $OUTPUT ? $OUTPUT->($!) : $! }
    
        1;
    
  2. or download this
        use Silly::Die sub { qq(I died with: "@_") };
        open FILE, "foo" or die trying;
    
  3. or download this
      I died with: "No such file or directory" at ./test.pl line 9.