Remove use perl5i reference