Help for this page

Select Code to Download


  1. or download this
    require Carp;
    $SIG{__WARN__} = sub { Carp::cluck(@_) };
    
    # for use with debugger
    $SIG{__WARN__} = sub { $DB::single = 1 };