Pipe grep output to file

[Jeanne Riley]

Hi,

I need to detect ^M(s) in a file and send the output to a file.  I am
extremely new to Perl.  This is what I have which incidentally is not
working...

open(FNAME,">grepoutput.txt");
cat $CHECKIN_FILENAME | grep "/\cM/g" >FNAME;

The error message I get is that there are not enough arguments to grep.

Thanks,
Jeanne