open(my $ph, "$prg 2&>1 |") or die "Konnte Programm nicht starten ($!)\n";
while( ma $line=<$ph>)
{
  if($line=~/(\d*%)/)
  { print "$1\n"; }
}
close($ph) or die "Programm lief nicht ($!)\n";