Select Code to Download

{
    my @nums = (0..9,'a'..'z','A'..'Z');
...
        return $number;
    }
}

my $UniqueID = to_base( 62, $$ ) . to_base( 62, time );

print to_base( 16, 28 );

sub GenerateBase
{
...
       sub { fr_base( $base, $_[0] ) },
    );
}