$number10 = pack('C', 10);
# ...
$number100 = pack('C', 100);

##</code><code>##

$size = length($number100);

##</code><code>##

__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;