#!/usr/bin/perl 

use XML::Twig;
use warnings;
use strict;
use LWP;

my $url =
'http://username:password@10.0.0.1/Event/notification/alertStream';
my $browser = LWP::UserAgent->new();

my $twig =
  new XML::Twig(
    twig_handlers => { EventNotificationAlert => \&AlertStreamHandler } );

my $response = $browser->get(
    $url,
    ':content_cb'     => \&raw_handler,
    ':read_size_hint' => 1024,
);

sub raw_handler {
    my ( $data, $response ) = @_;
    unless ( $data =~ /^--boundary/ ) {
        $twig->parse($data);
        #print $data;
    }
}

sub AlertStreamHandler {
    my ( $twig, $eventAlert ) = @_;
    my $ip        = $eventAlert->first_child('ipAddress')->text;
    my $eventType = $eventAlert->first_child('eventType')->text;
    print "IP: " . $ip . "\n";
    print "Event: " . $eventType . "\n";
    $twig->purge;                             # delete the twig so far. Not sure if this is needed.
}