perl Font-AFM