perl -Ma -e 'clear_scr()'