Shell Programming and Scripting

<?xml version="1.0"?>
<catalog>
  <cd>
    <title>Empire Burlesque</title>
    <artist>Bob Dylan</artist>
    <country>USA</country>
    <company>Columbia</company>
    <price>10.90</price>
    <year>1985</year>
  </cd>
  <cd>
    <title>Hide your heart</title>
    <artist>Bonnie Tyler</artist>
    <country>UK</country>
    <company>CBS Records</company>
    <price>9.90</price>
    <year>1988</year>
  </cd>
</catalog>

#!/usr/bin/perl
use File::Basename;
use XML::LibXML;
use XML::LibXML::XPathContext;
my $inputFile = $ARGV[0];
my($XMLfile, $inputpath) = fileparse($inputFile);
chdir($inputpath) or die "Can\'t chdir to $inputpath";
 
my $doc = XML::LibXML->new()->parse_file($XMLfile);
my $xp = XML::LibXML::XPathContext->new($doc);
$object = $xp->exists('/catalog');
print $object ."\n";

#!/usr/bin/perl
use File::Basename;
use XML::DOM;
my $inputFile = $ARGV[0];
my($XMLfile, $inputpath) = fileparse($inputFile);
chdir($inputpath) or die "Can\'t chdir to $inputpath";
my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile($XMLfile) or die "Could not parse!";
my $docNode   = $doc->getDocumentElement->getTagName;
print "Tag Name: ".$docNode."\n";