use FileHandle;
...
# Filehandle anlegen
my $fh = new FileHandle;

# Pipe-open
open ($fh, "das_pruefende_programm |") or die "ups... $!";

# Fileevent mit Callback verbinden
$MainWindow->fileevent ($fh, 'readable', \&funktion_die_was_macht);

sub funktion_die_was_macht {
    print <$fh>;   # Oder was anderes, z.B. den Text in ein Widget einfuegen
}