Help for this page

Select Code to Download

Select or download this

BEGIN {
package Y;
...
no bytes;
$x = chr(3456);
print X::l($x);