use strict;
use warnings;
use Net::SMTP;
use Authen::SASL;
use utf8;
use Encode;
use MIME::Base64;

use constant SMTP_USE_SSL => 0x0001;
use constant SMTP_USE_TLS => 0x0002;
use constant SMTP_USE_SSH => 0x0004;
use constant SMTP_USE_PGP => 0x0008;

sub smtp_body_decrypt
{
	my($hash,$smtp_use_flags)=@_;

...
}