#!/usr/bin/perl
use strict;
use warnings;
use 5.010;
use Mojo::DOM;
my $dom = Mojo::DOM->new('<img class="left" alt="eway-logo" src="/images/global/logo-eway.gif"> </img>');
$dom->at('img')->attrs({alt => 'new-logo', src => '/images/global/new-eway.gif'});
say $dom->to_xml;