Fouled Script

[SoloCDM]

The attached script is my first attempt at some means of perl
scripting, base on your advice.  It won't work.  I keep getting the
following error:

syntax error at ./find-perl-sample2 line 8, near "open "
Execution of ./find-perl-sample2 aborted due to compilation errors.

-- 
Note: When you reply to this message, please include the mailing
      list/newsgroup address and my email address in To:.

*********************************************************************
Signed,
SoloCDM
-------------- next part --------------
#!/usr/bin/perl -w
#

$MDIR = [directory]
$MFILES = "find $MDIR -type f -ls -xdev -fstype ext2 \( -iname '*personal*' -o -iname '.*personal*' \) -print"

open FIND, "$MFILES |" or die $!
while( <FIND> ) {
	print "$_\n";
}
close FIND;