{
if (!perl)
rxvt_push_locale (""); // perl init destroys current locale
rxvt_push_locale ("C"); // perl init destroys current locale
perl_environ = rxvt_environ;