eval "require DBI";
my $dbi_ok = $@ ? 0 : 1;
if( $dbi_ok ){
  # do DBI stuff here
}else{
  print "NO DBI\n";
}