sub is_readonly { eval { substr($_[0],0,0) = '', 1 } }