#!/usr/bin/perl
open (my $fh, '-|', 'your program with params' ) || die $!;
while ( defined ( $_ = <$fh> )) {
  #work on a event
}