Select Code to Download

use DBI;

...
    print "\tSub 'handle_error': $error\n";
    print "\tEnd sub\n";
}

$ perl tester.pl
Trying HandleError (with RaiseError on):
...
Trying Errstr:
        Errstr: Unknown column 'wrong_col' in 'field list'