Initial commit of the Perl map