#!/usr/bin/perl

use strict;
use warnings;
use XML::Simple;
use Data::Dumper::Concise;

my %xml;
my $image;

my $web = 'http://my-base-url/';
if(exists $xml{'result'}{'covers'}{1}{'content'}) {
  	 print Dumper($image = "$web$xml{'result'}{'covers'}{1}{'content'}");
}
else {
    print Dumper($image = "$web$xml{'result'}{'covers'}");
}