use ExtUtils::Installed;

 my $test = sub { grep /^Publication::/, @_ ; } ;

 my $inst = new ExtUtils::Installed;
 eval "use $_;" foreach (&$test($inst->modules()));