perl -e"system q[mode con cols=100 lines=60];"