in reply to exit code from FILEHANDLE object.
You get 1 because close is successfull.
Please have a look at $? in perlvar.