perl -MMy::Package -e 'My::Package::clear_scr()'