Danke

Ich habe es hinbekommen.
Für jemanden der zufällig auch nach so etwas sucht:

my $pid = open3(undef, my $reader, undef, $prg);
while (read($reader, my $line, 100)) {
if ($line =~ /([0-9]*%)/)
{
printf("%s\r", $1);
}
}

Funktioniert auch mit open, aber wenn ich nur open benutze kommen noch andere Meldungen (ich denke stderr Meldungen) auf die Konsole. Ich möchte aber alles andere unterdrücken, bzw. selber auswerten.

Nochmals danke für die schnelle hilfe.