perl -Mwarnings -e 1