Add `print_perl_keyword function