Issue with ADCFGCLONE | BEGIN failed--compilation aborted at adcfgclone.pl | Issue with vars.pm

$ perl adcfgclone.pl appsTier
Invalid range "a-Z" in transliteration operator at /u01/oracle/mkkappsora/iAS/Apache/perl/lib/5.00503/vars.pm line 17.
Compilation failed in require at /u01/oracle/mkkappsora/iAS/Apache/perl/lib/5.00503/File/Basename.pm line 132.
BEGIN failed--compilation aborted at /u01/oracle/mkkappsora/iAS/Apache/perl/lib/5.00503/File/Basename.pm line 132.
Compilation failed in require at /u01/oracle/mkkappsora/iAS/Apache/perl/lib/5.00503/File/Path.pm line 100.
BEGIN failed--compilation aborted at /u01/oracle/mkkappsora/iAS/Apache/perl/lib/5.00503/File/Path.pm line 100.
Compilation failed in require at adcfgclone.pl line 89.
BEGIN failed--compilation aborted at adcfgclone.pl line 89.

Solution:

Open the file /u01/oracle/mkkappsora/iAS/Apache/perl/lib/5.00503/vars.pm and modify as follows:
Wrong Entry:   if ($sym =~ tr/A-Za-Z_0-9//c) {
Correct Entry:  if ($sym =~ tr/A-Za-z_0-9//c) {

Cheers!!!!
Malay