Select Code to Download

use strict;
use warnings;
...
while (++$x) { # Runs forever
     print uc substr $x->as_hex, 2;
}