Help for this page

Select Code to Download


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