Select Code to Download

D:\Perl\test>type temp2.pl8
#! perl -slw
...

Some text
Some more text

Note that if you're storing FILEHANDLES in an array or other expressio
+n, you will have to use a block returning its value instead:

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