use Search::Dict;
open(DICT, "+>dict-$$") or die "Can't create dict-$$: $!";
-unlink "dict-$$";
+binmode DICT; # To make length expected one.
print DICT $DICT;
my $pos = look *DICT, "abash";
print "not " if $pos < 0 || $word ne "Aarhus";
print "ok 3\n";
+
+close DICT or die "cannot close";
+unlink "dict-$$";