unicode mascots

#!/usr/bin/env perl

use v5.16;
use warnings;

binmode STDOUT, 'utf8';

my %mascot = (
    Perl   => "\N{DROMEDARY CAMEL}",
    Python => "\N{SNAKE}",
    Ruby   => "\N{GEM STONE}",
    Linux  => "\N{PENGUIN}",
    MySQL  => "\N{DOLPHIN}",
    BSD    => "\N{IMP}",
);

say "$mascot{$_}  $_!" for sort keys %mascot;