The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

print "1..1\n";
use encoding::stdio 'greek';
#warn "\n", ord "\xdf";
print 'not ' if ord("\xdf") != 223;
print "ok 1\n";