perl to filestat()