Glib::IO->add_watch( fileno $fh, [ qw/in/ ], \&watch_callback, $fh );


sub watch_callback {

   my ( $fd, $condition, $fh ) = @_;
   my @lines = $fh->getlines;
   print @lines;

#always return TRUE to continue the callback
   return TRUE;
}
                                                                
}