system("program $ref_file > $outfile");

##</code><code>##

open( PROG, "-|", "program", $ref_file ) or die "can't launch 'program' on $ref_file: $!\n"

open( OUT, ">", $outfile );
while (<PROG>) {
    print OUT;
}
close PROG;
close OUT;