Select Code to Download

#!/usr/bin/perl

use warnings;
...
my @chars = map chr($_), 32 .. 122;

print @chars;