#!/usr/bin/perl



$CMD='/usr/bin/openssl smime -decrypt -recip /home/cmyers/gitrepos/smime-pop-proxy/smime_certs/cert.pem -inkey /home/cmyers/gitrepos/smime-pop-proxy/smime_certs/key.pem.insecure';

open(my $FH, "| $CMD |") or die "FOO!";

open(my $IH, '/home/cmyers/gitrepos/smime-pop-proxy/test.email') or die "BAR!";

while (my $line = <$IH>) {
    print $FH $line;
}

while (my $output = <$FH>) {
    print $output;
}

exit 0;