# Funktion zum starten eines Entpacker Programms
sub start_prog
{
 my $prog = $_[0];
 my $text = '';
 my @return;

 $pid = open(FH,"$prog |") or die $!;
 while (<FH>)
 {
  $text .= $_;
 }
 close (FH);
 $pid = 0;
 $return[0] = $?;
 $return[1] = $text;

 return @return;
}