Select Code to Download

package Foo;
...
...
*DBI::carp = sub { $Foo::error = shift };
...
my $self->{dbh} = DBI->connect( ... ) or carp $error;

Lbh ebgngrq guvf grkg naq abj lbh pna ernq vg. Fb jung? :)   -- Whreq