perl -e 'use something; &aroutine(@ARGV); &blah(); $anythingyouwant="here";' *.c

##</code><code>##

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