Help for this page
local $SIG{__WARN__} = sub ... $x->[$dbc_id]\n"; }; ..code that might cause an WARNING follows...
#!/usr/bin/perl -w use strict; ... 8 9 10