sub new_filehandle {
	local *FH;
	return *FH;
  }

  $x = new_filehandle();