sub email($$;$)
{
  my $from = 'sender@domain.ru';
  my $rcpt = 'staff@domain.ru';
  my $subj = shift;
  my $body = shift;
  my $file = shift;
  my $boundary = 'BOUNDARY';
  $body = encode_base64(encode('UTF-8',$body));
  my @hdr = ();
  push @hdr, 'Date: '       . strftime("%a, %d %b %Y %H:%M:%S %z", localtime(time()));
  push @hdr, 'From: '       . encode('MIME-Header', $from) if (defined($from));
  push @hdr, 'To: '         . encode('MIME-Header', $rcpt) if (defined($rcpt));
  push @hdr, 'Subject: '    . encode('MIME-Header', $subj) if (defined($subj));
  push @hdr, 'MIME-Version: 1.0';
  if (@$file)
  {
    push @hdr, 'Content-Type: multipart/mixed; boundary='.$boundary;
  }
  else
  {
    push @hdr, 'Content-Type: text/plain; charset=utf-8';
    push @hdr, 'Content-Transfer-Encoding: base64';
  }
  my $smtp = Net::SMTPS->new('smtp.gmail.com', 'Port'=>587, 'doSSL'=>'starttls', 'Debug'=>0);
  $smtp->auth('user', 'password');
  $smtp->mail($from);
  $smtp->to($rcpt) if (defined($rcpt));
  $smtp->data();
  $smtp->datasend("$_\n") foreach (@hdr);
  $smtp->datasend("\n");
  if (@$file)
  {
    $smtp->datasend("--$boundary\n");
    $smtp->datasend("Content-Type: text/plain; charset=utf-8\n");
    $smtp->datasend("Content-Transfer-Encoding: base64\n");
    $smtp->datasend("\n");
    $smtp->datasend($_) foreach (unpack("(A3800)*", $body));
    $smtp->datasend("\n\n");
    foreach my $f (@$file)
    {
      $smtp->datasend("--$boundary\n");
      my ($data,$type);
      if (exists($f->{'mimetype'}))
      {
        $data = $f->{'data'};
        $type = $f->{'mimetype'};
      }
      else
      {
        $data = encode('UTF-8',$f->{'data'});
        $type = "application/text";
      }
      $smtp->datasend("Content-Type: " . encode('MIME-Header', "$type; name=$f->{'filename'}") . "\n");
      $smtp->datasend("Content-Transfer-Encoding: base64\n");
      $smtp->datasend("Content-Disposition: " . encode('MIME-Header', "attachment; filename=$f->{'filename'}") . "\n");
      $smtp->datasend("\n");
      $smtp->datasend($_) foreach (unpack("(A3800)*", encode_base64($data)));
      $smtp->datasend("\n\n");
    }
    $smtp->datasend("--$boundary--\n");
  }
  else
  {
    $smtp->datasend($_) foreach (unpack("(A3800)*", $body));
  }
  $smtp->datasend("\n");
  $smtp->dataend();
  $smtp->quit;
}