Select Code to Download

            ## Need to get rid of directories, such as 5.8.8 or i386-l
+inux-thread-multi
            ## 5.8.8::URI.pm
...
            $file =~ s{^ +\d+\.\d+\.\d+::}{}g;
            $file =~ s{^ ?[^A-Z]+::}{}g;
            $file =~ s/^ +//g;

use File::Find 'find';

...
        no_chdir => 1,
    }, $incl_dir;
}

for my $incl_dir (@INC)
{
...
        },
        no_chdir => 1,
    }, $incl_dir;