perl -MmodA -cwe1