my @pkgs = map { s,[/\\],::,g; s,\.pm$,,} keys %INC;