(perl) provides a lexically scoped currently selected filehandle