my $use_dbi = eval '
   use DBI;
   use DBD::mysql;
   1  # or undef if the above fails.
';

if ($use_dbi)
 {
  ...
 }
else
 {
  print "NO DBI\n";
 }

... do other stuff ...