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

##</code><code>##

use DBI;

##</code><code>##

if (($cat) and (len($cat)==0))
    {
    $s="$procname ERROR: Category was not provided. Cannot update database.";
    writeerr($s);
    exit 1;
    }

##</code><code>##

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