perl -MUnicode::UCD=prop_invlist -MString::Range::Expand=expand_expr -MList::Util=pairmap -E 'say join(",", sort map {chr} expand_expr(join(",", pairmap{"[$a-".($b-1)."]"} prop_invlist("PosixAlpha"))))'
A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z

##</code><code>##

use strict;
use warnings;
use Unicode::UCD qw(prop_invlist);
use String::Range::Expand qw(expand_expr);
use List::Util qw(pairmap);

my @invlist = prop_invlist('PosixAlpha');
my $to_expand = join(',', pairmap {"[$a-" . ($b-1) . ']'} @invlist);
my @chars = sort map {chr $_} expand_expr($to_expand);

print join(',', @chars), "\n";