perl -Mblib -MWx -e 1