perl -MFoo -cwe1