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)=@_;

...
}

#!/usr/bin/perl

use  strict;
use warnings;

require("/include/inc.smtp.pl");

my %parms=();
smtp_body_decrypt(\%parms,SMTP_USE_SSL|SMTP_USE_PGP) || e_exit(1);
..