Help for this page
print { $files[$i] } "stuff\n"; print { $OK ? STDOUT : STDERR } "stuff\n";
print { $x{handle} } "Wow!\n";