use if $ARGV[0], "utf8";
printf "%vX\n", scalar(<DATA>);
__DATA__
é