Create perl_gen

pcq le perl cest mega lent