#!/usr/bin/perl binmode STDOUT, ':utf8'; print "Çirçös\n";