#!/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);
..