Select Code to Download

open $h, "| program_A" or die ...;
foreach (@data_files) {
...
    ...
}
close($h);

foreach (@data_files) {
   open $h, "| program_A 2>& /dev/null" or die ...;
...
    ...
}
close($h);