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