Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w

BEGIN {
...
  use Carp qw(verbose confess); #die verbosely, with stacktraces
  $SIG{__WARN__} = \&confess;   #die, on warnings
}
  2. or download this
    #!/usr/bin/perl -w

use strict;
use Carp qw(verbose confess);
$SIG{__WARN__} = \&confess;