use strict;
use warnings;

use PerlIO::encoding;

{
   local $PerlIO::encoding::fallback = Encode::PERLQQ();
   binmode STDOUT, ":encoding(cp1252)";
}

print("\xc9\x{2660}\n");