#!/usr/bin/perl

use XML::Smart;
use Data::Dumper;
use warnings;
use strict;

#open FILE1, 'run.xml' or die $!;

my $XML_1 = XML::Smart->new('run.xml');
my $ref = $XML_1->{product};
print $ref;