use XML::LibXML;

use lib '/usr/mi/lib';
use Encode;



my $content;
{
        $/ = undef;
        open ( FILE, "<$ARGV[0]" );
        $content = <FILE>;
        close FILE;
}
$content =  decode('utf8',$content, Encode::FB_CROAK);
my $base = '/feed/entry';
my $parser = XML::LibXML->new();
my $xp = $parser->parse_string( $content);
@nodeset = $xp->findnodes($base);