perl -e 'use a; &clear_scr()'