sub info{
         @info=stat($phile);
        @keys=qw(Dev Inode Mode NLink UID GID RDev Size ATime CTime Blksize Blocks);