Select Code to Download

use XML::Simple;

...

my $image = $xml->{image};
print "$_\n" for ref( $image ) ? @{$image} : $image;