use utf8;
use JobLogger;
...
my $log = Logger->new();
...
$log->run("# Отработка задания по созданию автоматически подключаемых пакетов");
...
$log->log("- Загрузка списка клиентов...");
...

----конец файла----

use utf8;
package Logger;
...
sub new
{
...
}
sub DESTROY
{
  my $self = shift;
  my $time = time - $start;
  $self->run("*** Завершено, время работы: $time");
...
}
...
sub _file($$$)
{
  my $self = shift;
  my $file = shift;
  my $data = shift;
  my $pid = " [$$]";
  my $clock = $self->_timestamp();
  open (LOG, ">>:utf8", $file);
  my $ofh = select(LOG);
  $| = 1;
  select($ofh);
  if (defined($data) && length($data)>0)
  {
    print LOG "${clock}:${pid} ${data}\n";
  }
  else
  {
    print LOG "\n";
  }
  close(LOG);
}

sub log
{
  my $self = shift;
  my $data = $self->_data(@_);
  my $file = ($self->{'config'}->{'dir'}||'') . ($self->{'config'}->{'file'});
  $self->_file("$file.log-work",$data);
  $self->print($data) if (($self->{'config'}->{'echo'} & LOG_ECHO_LOG) == LOG_ECHO_LOG);
  $self->{'counter'}->{'log'}++;
}

sub run
{
  my $self = shift;
  my $data = $self->_data(@_);
  my $file = ($self->{'config'}->{'dir'}||'') . ($self->{'config'}->{'file'});
  $self->_file("$file.log-state",$data);
  $self->_file("$file.log-work",$data) if ($self->{'config'}->{'log'});
  $self->print($data) if (($self->{'config'}->{'echo'} & LOG_ECHO_RUN) == LOG_ECHO_RUN);
  $self->{'counter'}->{'log'}++ if ($self->{'config'}->{'log'});;
  $self->{'counter'}->{'run'}++;
}
...

2016-06-10 07:05:03: [16865] *** Завершено, время рабојы: 2