#!/usr/bin/perl

use warnings;
use strict;
use Data::Dump qw(dump);
use WWW::Mechanize;
use Mojo::DOM;

my $mech = WWW::Mechanize->new();
$mech->timeout(30);
$mech->agent_alias('Windows Mozilla');
$mech->get('http://www.url.de/1426-profile.html');
my $dom = Mojo::DOM->new($mech->content);
my $collection4 = $dom->find('.portraitSetCard > img');
print $collection4;