RosettaCodeData/Task/Terminal-control-Unicode-output/Perl-6/terminal-control-unicode-output.pl6

die "Terminal can't handle UTF-8"
    unless first(*.defined, %*ENV<LC_ALL LC_CTYPE LANG>) ~~ /:i 'utf-8'/;
say "△";