скрипты инициализации всего и вся обычно пишутся "на перловке".
вот так, к примеру:
Код:
#!/usr/bin/perl
BEGIN { eval "use Locale::gettext"; $no_gettext = $@; eval "use POSIX"; if ($no_gettext || $@) { eval 'sub gettext($) { return $_[0]; }'; } else { setlocale($ENV{LC_MESSAGES}, "");
