Rückgabewert aus Jar-Archiv in Perl

[Anna]

Ich will ein Java-Programm von einem Perl-Skript aus aufrufen.
Ein Teil funktioniert auch, aber bei einer Methode bekomme ich einen Rückgabewert, den ich dann im Perl-Skript weiterverarbeiten will.

Mein Java-Programm ist so aufgebaut, dass es mehrere Dateien erstellt und jeweils die Zeilenlänge dazu. Alle Methoden sind in einem Jar-Archiv zusammengepackt. Die Dateien werden erstellt aber die wie kann ich die Zeilenlänge bekommen?
Die Zeilenlänge bekomme ich als Rückgabewert von der Methode Names.getLineLengthNames();
Sie liefert einen integer als Rückgabewert.
Diesen will ich im Perl-Skript aufrufen und anzeigen. Ich mache das folgendermaßen, aber es wird nichts angezeigt!Was mache ich denn da falsch?

open(PROG,"java -jar bagelExtractor.jar $inData $out1 $out2 $out3 $out4 $out5|");

@ausgabe;
while(<PROG>){
        push @ausgabe, $_;
}
close(PROG);

print <<HTML_END;

<table>
HTML_END

foreach(@ausgabe){

print <<HTML_END

<tr><td>$ausgabe</td></tr>
        HTML_END
}
close(PROG);
print <<HTML_END;

</table>
HTML_END

VielenDank,

Anna