#!/usr/bin/perl

use 5.010;
use strict;
use warnings;
use Convert::AnyBase;

my $a = 0;
my $base = Convert::AnyBase->new(set => '02468acez');
say $base->encode($a++) while "there's some disk space";