perl -Mblib t/map8.t