Help for this page
$ perl -E 'opendir $d, "."; say $_ for readdir $d;' . ... xxxH.txt xxxL.txt X_oper.pl