Select Code to Download

OPEN PIPE, "|java -jar program.jar";
    open FH, /abc.txt
    while (my $res = <FH>)
    print PIPE "$res";
    close FH;
close PIPE;