use Devel::Peek;
use bytes;
$c = pack ("U", 0xfc);
print Dump($c);
print length($c);