sub new_filehandle { local *FH; # return of *FH is implied } $x = new_filehandle();