$x=chr(536);
print "Char length: ".length($x)."\n";
print "Bytes length: ".bytes_length($x)."\n";
sub bytes_length($){
use bytes;
length $_[0];
}