while this simple perl gives pass

# verify a message
use Mail::DKIM::Verifier;

# create a verifier object
my $dkim = Mail::DKIM::Verifier->new();

# read an email from stdin, pass it into the verifier
while (<STDIN>)
    # remove local line terminators

    # use SMTP line terminators

# what is the result of the verify?
# my $result = $dkim->result;

print $dkim->result;

# how to use
cat email | above.pl

known problem ?

Reply via email to