Simple DKIM signature verifier in Perl

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

my $v = Mail::DKIM::Verifier->new();
while (<STDIN>)
{
        s/\r?\n$//;
        $v->PRINT("$_\r\n");
}
$v->CLOSE;
print $v->result_detail . "\n";