#!/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; 

##</code><code>##

C:\Users\rchen4\Desktop\Perl_XML>perl script2.pl

C:\Users\rchen4\Desktop\Perl_XML>