#!/usr/bin/env perl
use utf8;
###############################################################################
# Program to print some emoji characters.
# 
# Copyright © 2017 Richard Lesh.  All rights reserved.
###############################################################################

use strict;
use warnings;

MAIN:
{
    binmode(STDOUT, ":utf8");
    binmode(STDERR, ":utf8");
    binmode(STDIN, ":utf8");
    print "Smiling Face: \x{1F600}\n";
    print "Winking Face: \x{1F609}\n";
    print "Cool Face: \x{1F60E}\n";
    print "Laughing Face: \x{1F923}\n";
    print "Screaming Face: \x{1F631}\n";
    print "Angry Face: \x{1F620}\n";
    print "Angel Face: \x{1F607}\n";
    print "Devil Face: \x{1F608}\n";
    print "Skull Face: \x{1F480}\n";
    print "Alien Face: \x{1F47D}\n";
    print "Smiling Cat: \x{1F63A}\n";
    print "See-No-Evil: \x{1F648}\n";
    print "Hear-No-Evil: \x{1F649}\n";
    print "Speak-No-Evil: \x{1F64A}\n";
    print "Baby Face: \x{1F476}\n";
    print "Exploding Head: \x{1F92F}\n";
}