Select Code to Download

#!perl
use strict;
...

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