use strict;
use warnings;
use Math::BigInt;

my $x = Math::BigInt->new;

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