use ExtUtils::Installed; @INC = grep $_ ne "." , @INC; my ($inst) = ExtUtils::Installed->new(); my (@modules) = $inst->modules(); print <