open (POO, "logfile") or die "Can't open logfile: $!";
my $PRG = "someprg.bat |";
print POO $PRG;
open (HUH, $PRG) or die "Can't run someprg.bat: $!";
while (<HUH>) {
    print POO $_;
}