Select Code to Download

my $s= 'DBI';
eval("use $s;");
...
    {
    die "$0: ERROR: $s not installed.\n";
    }

use DBI;

if (($cat) and (len($cat)==0))
    {
...
    writeerr($s);
    exit 1;
    }

my $dbh= DBI->connect($dsn, $user, $password, { RaiseError => 1, Print
+Error => 0 });