openssl genrsa 1024 > /home/alice/ssltestkey.pem
openssl req -new -key /home/alice/ssltestkey.pem -x509 -days 9999 -out /home/alice/ssltestcert.pem

##</code><code>##

#!/usr/bin/perl
use Crypt::SMIME;

open(PKEY, "/home/alice/ssltestkey.pem") || die "open failed: $!";
open(CERT, "/home/alice/ssltestcert.pem") || die "open failed: $!";

my $plain = <<'EOF';
From: alice@example.org
To: bob@example.org
Subject: Crypt::SMIME test

his is a test mail. Please ignore...
EOF

my $smime = Crypt::SMIME->new();
$smime->setPrivateKey(<PKEY>, <CERT>);
my $signed = $smime->sign($plain);
print $signed;