Как-это не нужна??? Человек спросил можно ли узнать подключен модуль в скрипте??? А не то что установлен ли модуль вообще на машине. Если надо узнать если такой модуль на машине , то ,например, eval {require МОДУЛь} or die \'Sorry...\'.
А про DBI я просто для примера написал. Вот общий случай:
no strict \'refs\';
foreach (qw(Модуль Модуль2 Модуль3)) {
my $module = $_ . \'::\';
if ( %{$module} ) {
print $_ . " is loaded\\n"
} else {
print $_ . " doesn\'t loaded\\n"
}
}
use strict \'refs\';