Select Code to Download

for my $module (sort keys %INC) {
    (my $namespace = $module) =~ s!/!::!g;
...
    print sprintf "Module: %s; Path: %s; Size: %d; VERSION: %s\n",
        $module, $INC{$module}, -s($INC{$module}), $namespace->VERSION
+;
}