WP_inuse_uploads_files_download

#!perl -w

use utf8;
use File::Slurp qw/read_file/;
use File::Basename;

my @links = read_file('requested_url_filelist');

`mkdir uploads && chmod 777 uploads`;

##
##
fileparse_set_fstype('MSWin32');
foreach (@links)
{
        m/uploads\/(.*)\/([a-z0-9\-\_\.\w\%]*)$/igm;
        my $url = 'https://xxxxxx.xxx.xx/wp-content/uploads/';
        my ($filePath, $filename) = ($1, basename($2));
        `mkdir -p uploads/$filePath && chmod 777 uploads/$filePath`;
        $fullFilename = $filePath.'/'.$filename;

        next  if -e 'uploads/'.$fullFilename;
        $url .= $filePath.'/'.$filename;
        `wget -O $filename $url && chmod 777 $filename`;

        `cp $filename uploads/$fullFilename`;
        unlink($filename);
}

__END__

I have written this script to download a list of WordPress uploaded files that are actually in use,
I have retrieved this files grepping Apache access log file and extracting just the url to theses files and used as an input to this program.