script perl without switch condition
Merge pull request #1 from marcosemiao/cm-11.0

script perl without switch condition