Select Code to Download

Note that if you're storing FILEHANDLES in an
array or other expression, you will have to use a
...

  print { $files[$i] } "stuff\n";
  print { $OK ? STDOUT : STDERR } "stuff\n";