#!/usr/local/bin/perl

use strict;
use warnings;
use v5.32;
use Mojo::UserAgent;

#
# See guides at:
# https://docs.mojolicious.org/Mojo/UserAgent
# https://docs.mojolicious.org/Mojo/Cookie/Response
# https://metacpan.org/pod/Mojo::UserAgent
#
 
my $ua  = Mojo::UserAgent->new;
my $url = "https://example.com";

$ua->cookie_jar->add(
  Mojo::Cookie::Response->new(
    name   => 'session',
    value  => '90ip...pt71',
    domain => 'example.com',
    path   => '/'
  )
);

my $res = $ua->get( $url )->result;
if    ($res->is_success)  { say $res->body }
elsif ($res->is_error)    { say $res->message }
elsif ($res->code == 301) { say $res->headers->location }
else                      { say 'Whatever...' }