added cap perl app
making caps accept a ctl file as a command line arg