perl -e"system 'cls'"
perl -e"`cls`"
perl -e"qx[cls]"