Select Code to Download

perldoc -f print

Note that if you're storing FILEHANDLES in an array or other
...

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