$use_dbi = 1;
eval("use DBI;");
$use_dbi = 0 if (not($@);
if ($use_dbi)
 {
  use DBI;
  ...
 }
else
 {
  print "NO DBI\n";
 }
... do other stuff ...