(cperl-mode)
(indent-region 0 (buffer-size)  nil)
(save-buffer)
(ps-print-buffer (cond (command-line-args-left 
                        (car command-line-args-left))
                       (t nil)))