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