$pgpres='/usr/local/bin/gpg --output "$filename" --decrypt "$cryptedfile"`;

if ( $? == 0 )
{
  syslog('debug', "'$cryptedfile': расшифрован удачно");
  unlink $cryptedfile;
  if ( $pgpres =~ /Good signature from user \"(.*)\"\./m ) {
    $keyID=$1;
    syslog('debug', "Найден ключ $keyID");
    if ( exists $keyIDhomes{$keyID} ) {
      my $putres=0;
      if (system(
          "/bin/echo put " . $filename
          ." | /usr/local/bin/smbclient \\\\\\\\mail-server\\\\t2send "
          ."tele2 -U tele2 >/dev/null 2>/dev/null"
        ))
      {
        $putres=1;
      }
      if (system(
          "/bin/echo put " . $filename
          ." | /usr/local/bin/smbclient \\\\\\\\mail-server\\\\t2archive "
          ."tele2 -U tele2 >/dev/null 2>/dev/null"
        ))
      {
        $putres=1;
      }
      if ($putres)
      {
        safe_die("Расшифрованный файл tele2 не удалось поместить на сервер!");
      }
      else {
        unlink $filename;
      }
    }
    else {
      safe_die("Для ключа $keyID не определён каталог")
    }
  }
  else {
    safe_die("Странная ситуация: PGP завершила работу удачно, "
      ."но KeyID найти не удалось - "
      ."возможно шифрование сторонним ключом\n$pgpres\n")
  }
}
else
{
  syslog('debug', "%s %d", "!!! Не расшифровывается $cryptedfile", length($cryptedfile));
  syslog('debug', $pgpres);
}

syslog('debug', "Работа закончена");
closelog;