simple DKIM verifier in Perl

#!/usr/bin/perl
use strict;
use warnings;
use Mail::DKIM::Verifier;

my $message = join("", <STDIN>);
my ($headers) = ($message =~ /^(.+?\r\n)\r\n/s);
if ($headers =~ /\r\nX-Yandex-Front:/i) # some Yandex Mail fixup
{
    $message =~ s/(\r\n){2}/$1$1$1/;
}
my $dkim = Mail::DKIM::Verifier->new();
$dkim->PRINT($message);
$dkim->CLOSE;
print $dkim->result_detail . "\n";