Help for this page

Select Code to Download


  1. or download this
    die "Custom error messages are good!" if $condition;
  2. or download this
    #!/usr/bin/perl

...
local $SIG{__DIE__} = sub { die scalar localtime(), " " , $_[0] };

die "Argh!";
  3. or download this
    Sat Jan 25 00:40:36 2003 Argh! at ./custom_die.pl line 8.