test1.pl

#!/usr/bin/perl
#
use 5.18.0;
use strict;
use warnings;
use utf8;
use charnames ':full';
#
#
say qq{\N{FACE THROWING A KISS}};