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