perl5 B::Generate module