#!/usr/bin/env perl -w
use strict;
use warnings;
use diagnostics;

use Mojo::UserAgent;

my $ua = Mojo::UserAgent->new;

my $tx = $ua->get('what.cd');

my $cookie_jar = $ua->cookie_jar;
$ua            = $ua->cookie_jar(Mojo::UserAgent::CookieJar->new);

say $ua->get('https://yuppie:password@what.cd/login.php')->res->body;