Select Code to Download

local $SIG{__WARN__} = 
    sub 
...
                      $x->[$dbc_id]\n";     
    };
..code that might cause an WARNING follows...

#!/usr/bin/perl -w
use strict;
...
8
9
10