Select Code to Download

package MyOpen;
use Carp ();
...

open $fh, '>&', 'STDOUT';
open FOO, ">", "/tmp/FOO";