$ perl -e '@a = ('a'..'z');print @a,"\n"'
abcdefghijklmnopqrstuvwxyz
$

use IO::Socket;