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

##</code><code>##

perl -MMy::Package -e 'My::Package::clear_scr(@ARGV)' wipe