$mode= oct($mode) if /^0/;