#!perl
use strict;
use warnings;

use charnames ':full';

binmode STDOUT, ':encoding(UTF-8)';
print "\N{INVERTED QUESTION MARK}\n"