Untitled

use strict;
use warnings;
use Crypt::SMIME;

my $emailfile = $ARGV[0] or die "no emailfile given";

my $data = "";

open(my $fh, "<", $emailfile) or die "couldn't read emailfile: $!";
while (<$fh>) {
    $data .= $_;
}
close($fh);

my $privkey = `cat /root/certs/delta.key`;
my $crt = `cat /root/certs/delta.cert`;

my $smime = Crypt::SMIME->new();
$smime->setPrivateKey($privkey, $crt);
$smime->setPublicKey($crt);
#$smime->setPublicKey($ca_cert);
my $encrypted = $smime->sign($data);
print $encrypted;
my $plain = $smime->check($encrypted);
print $plain;