Select Code to Download

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