#!/usr/bin/perl
use charnames ':full';
print "\N{FACE WITH TEARS OF JOY}\n";