#!/usr/bin/env perl
use utf8;
###############################################################################
# Program to print Unicode card suits.
# 
# Copyright © 2017 Richard Lesh.  All rights reserved.
###############################################################################

use strict;
use warnings;

MAIN:
{
    binmode(STDOUT, ":utf8");
    binmode(STDERR, ":utf8");
    binmode(STDIN, ":utf8");
    print "Spades: \x{2660}\x{2664}\n";
    print "Hearts: \x{2665}\x{2661}\n";
    print "Clubs: \x{2663}\x{2667}\n";
    print "Diamonds: \x{2666}\x{2662}\n";
}