use strict;
use XML::Parser;
use LWP::Simple;

my @curr;
my @stories;
# global hash
my %story;

my $xml = get("http://www.slashdot.org/slashdot.xml");
die "Failed to obtain xml " unless defined($xml);
my $p = XML::Parser->new(Style => 'Stream');
$p->parse($xml);

# print out the results
foreach my $hashref (@stories) {
	print "$hashref->{title}\n";	
}

#  StartTag - called when the start of an XML tag is found
sub StartTag {
 my($p, $tag) = @_;
 push @curr, $tag;
}

#  EndTag - called when the end of a XML tag is seen 
sub EndTag {
  my($p, $tag) = @_;
  
  # pushes the hash ref onto the array
  if ($tag eq 'story') {
  	push @stories, \%story;
  }
  pop @curr;
}

#  Text - called when text data is encountered
sub Text {
	unless ($curr[-1] eq 'story') {
		$story{$curr[-1]} = $_;		
	}
}


##</code><code>##

<story>
	<title>Debian And WineX</title>
	<url>http://slashdot.org/article.pl?sid=02/05/28/1515220</url>
	<time>2002-05-28 18:25:01</time>
	<author>Hemos</author>
	...
</story>