my $msg = MIME::Lite->new(
			    
			    From    => "=?UTF-8?B?" . encode_base64( 'Some russian text', "" ) . "?=" . ' <inf@irkutsk.2gis.ru>',
			    To      => $email_address,
			    Subject => "=?UTF-8?B?" . encode_base64( 'Some russian text', "" ) . "?=",
			    Type    => 'multipart/mixed',
			);
			
			$msg->attach(
			    
			    Type     => 'text/html; charset=UTF-8',
			    Data     => $message_html,
			);
			
			$msg->attach(
			    Type     => 'application/msword',
			    Path     => $base_path . '\\' . $dir_name . '\\' . $file_name . ".doc",
			    Filename => "=?UTF-8?B?" . encode_base64( 'Some russian text', "" ) . "?=" . '.doc',
			);
			
			$msg->attr('content-type.charset' => 'UTF-8');
			$msg->send;