#!/usr/bin/perl

use strict;
use warnings;
use feature 'say';
use Mojo::Util 'trim';
use Mojo::UserAgent;

# get perlmonks
my $ua = Mojo::UserAgent->new;
my $dom = $ua->get('https://perlmonks.org')->res->dom;

say 'Title: ' . trim( $dom->at('title')->text );
say 'Image src: ' . trim( $dom->at('img')->attr->{'src'} );
say 'Image alt: ' . trim( $dom->at('img')->attr->{'alt'} );