#!/usr/bin/perl -w

use Log::Log4perl qw(:easy);
use WWW::Mechanize;
use WWW::Mechanize::Chrome;
use strict;

my $cookie_dir = 'C:/Users/some_user/AppData/Local/Google/Chrome/User Data/Default/';	#chrome cookies path 

#my $mech = WWW::Mechanize::Chrome->new( data_directory => $cookie_dir);
my $mech = WWW::Mechanize->new();

my $uri = URI->new( "https://www.your_site.com/WMC.html" ); 

$mech->get( $uri );
unless ($mech->success)
{
	my $mesg = $mech->response->status_line;
	print $mesg;
	goto FINISH;
}

my $path = "/path";		
my @links = $mech->find_all_links( url_regex => qr/\.csv/i );
my @urls = map { $_->[0] } @links;
for my $foo (@urls)
{
	my $filename = $path.$foo;

	$mech->get($foo, ':content_file'=>$filename);
	my $file_content  = $mech->get($foo);
	print $file_content->content();
}
			
print "Success\n";
FINISH :