use HTTP::Cookies;
use HTTP::Cookies::Chrome;
use WWW::Mechanize;

my $cookie_file = 'C:/Users/someuser/AppData/Local/Google/Chrome/User Data/Default/Cookies';
my $cookie_jar = HTTP::Cookies::Chrome->new(
        file => $cookie_file,
        );

my $mech = WWW::Mechanize->new( 
     cookie_jar => $cookie_jar,
    );

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

my $username = 'user';
my $passwd = 'pass';

$mech->get( $uri );
$mech->set_fields(
	username => $username,
	password => $passwd,
);
$mech -> submit(); 

##</code><code>##

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

my $cookie_dir = 'C:/Users/someuser/AppData/Local/Google/Chrome/User Data/Default/';
my $mech = WWW::Mechanize::Chrome->new(
    data_directory => $cookie_dir,
);

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

my $username = 'user';
my $passwd = 'pass';

$mech->get( $uri );
$mech->set_fields(
	username => $username,
	password => $passwd,
);
$mech -> submit();