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