Added Perl script mapping_specimen_type.pl for Perl users (does the same thing as the Python script)