Help for this page

Select Code to Download

Select or download this

eval "require DBI";
my $dbi_ok = $@ ? 0 : 1;
...
}else{
  print "NO DBI\n";
}