#!/usr/bin/perl -w
use strict;
use Fierce::Parser;
my $fp = new Fierce::Parser;
my $parser = $fp->parse_file('google.xml');
my $node = $parser->get_node('google.com');
print $node->domain . "\n";
#!/usr/bin/perl -w
use strict;
use Fierce::Parser;
my $fp = new Fierce::Parser;
my $parser = $fp->parse_file('google.xml');
my $node = $parser->get_node('google.com');
print $node->domain . "\n";