#!/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 $privkey = do { local $/; <PKEY> };
my $crt = do { local $/; <CERT>};

my $smime = Crypt::SMIME->new();
$smime->setPrivateKey($privkey, $crt);
my $signed = $smime->sign($plain);
print $signed;