Select Code to Download

use diagnostics;
warn "row=$row col=$col row->[col]=", $row->[$col], ";\n";
__END__
...
Use of uninitialized value $col in array element at - line 1 (#1)
Use of uninitialized value in warn at - line 1 (#1)
row= col= row->[col]=;

   $SIG{__WARN__} = \&warn_trap;
   $SIG{__DIE__} = \&death_trap;
...

sub splainthis ...
    print THITHER "$orig (#$old_diag{$_})\n";