Select Code to Download

eval { require DBI };
if ($@) {
...
    warn "Oh oh";
}
... etc...

my %subs = ('DBI' => \&use_dbi,
            'Win32::ODBC' => \&use_odbc,
...
       last;
    }
}