use strict; use ExtUtils::Installed; my $inst = ExtUtils::Installed->new(); print map "$_\n", @ARGV ? map $inst->files($_), @ARGV : $inst->modules();