#!/usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $xml = 'XML::LibXML'->load_xml( string => '<Meter_Request Name="CREDIT"/>' );
my $root_name = $xml->documentElement->getName;
print "$root_name\n";