Скрипт на newLISP'е

":"; exec newlisp $0 "$@"
;;; Check if a file contains at least one ^M character

(if (< (length (main-args)) 3)
    (begin (println "Usage: control-m <filename>") (exit)))

(setq filename (nth 2 (main-args)))
(setq file (open filename "read"))
(unless file
    (begin (println "Cannot open file " filename) (exit)))

(define (test)
    (while (setq in-char (read-char file))
        (if (= in-char 13)
            (throw "YES")))
    (throw "NO"))

(catch (test) 'ans)
(println ans " " filename)

(close file)
(exit)