G'day nifu,

Welcome to the Monastery.

Your problem description is unclear. Simply showing individual lines of code, in isolation, with no reference to their context, does not help us to help you. Please read "How do I post a question effectively?" and "SSCCE".

"I donīt know how to use the perl module with $dkim->load(*STDIN);. ..."

The documentation for Mail::DKIM::Verifier starts with an example of that (in the Synopsis); the load() section further down has details. Is some part of that unclear to you?

Reading between the lines, I suspect you may be confusing "<FILEHANDLE>" and "<>" (the special null filehandle).

I created a test file:

$ cat > XXX
qwe
rty
[download]

With "<>", you get the behaviour I think you're looking for:

$ perl -e 'while (<>) { print }' XXX
qwe
rty
[download]

With "<STDIN>", instead of "<>", the above code is waiting for input from stdin. In this example, I issued an interrupt (after waiting a few seconds for something to happen):

$ perl -e 'while (<STDIN>) { print }' XXX
^C
[download]

In the next example, I used the keyboard for stdin. Note the absence of any content from "XXX".

$ perl -e 'while (<STDIN>) { print }' XXX
typed
typed
from
from
keyboard
keyboard
[download]

You can get the contents of "XXX" via redirection or piping:

$ perl -e 'while (<STDIN>) { print }' < XXX
qwe
rty
[download]

$ cat XXX | perl -e 'while (<STDIN>) { print }'
qwe
rty
[download]

Take a look at "perlop: I/O Operators" and "perlvar: Variables related to filehandles" for more complete details on this subject.

> $dkim->load(*STDIN); I have tried to load the file with a filehandle like $dkim->load(<fh>); or $dkim->load($filename); .

I think you are confusing filehandle with filename.

You need to open a filehandle to a file (and close it afterwards)

Something like

open(my $fh, "<", "$filename")
    or die "Can't open < $filename: $!"
$dkim->load($fh);
...
[download]

should do. (Untested)

HTH :)

Hello everyone and thanks for the answers.

This is the code form my small test script:

#! /usr/bin/perl

use strict;
use warnings;
use Mail::DKIM::Verifier;

my $raw_email;
my $dkim = Mail::DKIM::Verifier->new();

open (MESSAGE, "< $ARGV[0]") || die "Couldn't open email $ARGV[0]\n";
       undef $/;
$raw_email = <>;
close MESSAGE;

print "$ARGV";

open(my $fh, "<", "$ARGV") or die "Can't open < $ARGV: $!";
$dkim->load($fh);

my $result = $dkim->result;
print "\n$result";

foreach my $signature ($dkim->signatures)
  {
      print "signature identity: " . $signature->identity . "\n";
      print "verify result: " . $signature->result_detail . "\n";
  }
[download]

I have tested this script with differed emails. Test files with correct, wrong and missing DKIM signature. The script returns always "none" (my $result = $dkim->result;) and $signature is an empty variable.

It seams that this script canīt find a DKIM signature in the test files.

open (MESSAGE, "< $ARGV[0]") || die "Couldn't open email $ARGV[0]\n";
       undef $/;
$raw_email = <>;
close MESSAGE;
[download]

Hello, nifu. Could you please explain what this section of code is doing and why?