/ print "Checking root bash language"; my $lang = `locale`; if ($lang =~ "LANG=en") { print "... OK\n"; } else { print "\n**** WARNING: You seem to have a non-english root bash. This can cause incorrect error messages.\n". " It is recommended to set your bash language to English.\n"; } my $file = "/etc/sysconfig/i18n"; if (open(my $IN,'<'.$file)) { print "Checking OS language"; if (<$IN> =~ "LANG=\"en") { print "... OK\n"; } else { print "\n**** WARNING: You seem to have a non-english operating system. ". "It is recommended to set the language in /etc/sysconfig/i18n to English.\n"; } }