perl -Ma -e 'a::clear_scr();'