use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use utf8;
use CGI qw/:standard -utf8 -nosticky/;
use open qw/:utf8/;
binmode(STDOUT, ":utf8");
require "./firms/firms.cgi"; # В скрипте не объявлен use utf8;

use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use utf8;
use CGI qw/:standard -utf8 -nosticky/;
use open qw/:utf8/;
binmode(STDOUT, ":utf8");
require "./firms/firms.cgi"; # + use utf8;