Select Code to Download

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

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

...
}
close PROG;
close OUT;