#!/usr/bin/perl -w

use strict;

eval "use DBI";

if ($@) {
  runwithout();
}
else {
  run();
}