open (POO, "logfile") or die "Can't open logfile: $!";
my $FOP = "fop -xsl $XSL -xml $XML -pdf $PDF |";
print POO $FOP;
open (HUH, $FOP) or die "Can't run fop: $!";
while (<HUH>) {
    print POO $_;
}