Select Code to Download

@z2 = ("01" .. "31");
print $z2[$mday];

@numbers = ( 0+$first .. 0+$last );

@alphabet = ("A" .. "Z");

$hexdigit = (0 .. 9, "a" .. "f")[$num & 15];