Create geninfo.perl