#!/usr/bin/perl
use strict;
my $body="body.msg";
my $smime="smime.msg";
my $publickey="key.pem";
my $subject="Test-Nachricht E2E-verschluesselt";
my $message='Das hier ist eine ganz geheime Nachricht :-P';
my $orig='absender@example.com';
my $rec='empfaenger@example.com';
open(BODY,">$body") or die ("Kann File $body nicht oeffnen !\n");
print BODY $message;
close (BODY);
my $message=`/usr/bin/openssl smime -encrypt -text -in $body -out $smime -from $orig -to $rec -subject "$subject" $publickey`;
if (my $mail=`/usr/lib/sendmail $rec <$smime`)
        {
        print "Fehler beim Mailversand: $mail\n";
        }
unlink $body;
unlink $smime;