my $p1 = new XML::Parser(Style => 'Subs');
my $tree = $p1->parse($content);
#####called when entries start tag occurs

sub entries{

#########what ever u need############

}
######### called when entries end tag occurs

sub entries_{

}