Select Code to Download

@list = (a..z);
{ # ok for STDOUT
...
  select $fh; # restore STDOUT as default filehandle
}
# file 'bar' closed here, since $fh is out of scope