[Scriptome-users] help running Perl

[Kinshuk Nayak]

Sir 
I want to use script
perl -e '
$unique=0;
$total=0;
while(<>) {
if (/^>\S+/) {
$total++;
if (! ($seen{$&}++)) {
$unique++;
$print_it = 1
}
else {
$print_it = 0
}

};
if ($print_it) {
print $_
};
}
warn "\nChose $unique unique FASTA records out of $total total.\n\n";
' a.fsa > unique.fsa
 
 
When i am saving the file and trying to run in perl installed directory the message is
 
C:\NELU\PERL>duplicate.pl
Bareword found where operator expected at C:\NELU\PERL\duplicate.pl line 21, nea
r "' a"
  (Might be a runaway multi-line '' string starting on line 1)
        (Missing operator before a?)
syntax error at C:\NELU\PERL\duplicate.pl line 1, near "perl -e "
Execution of C:\NELU\PERL\duplicate.pl aborted due to compilation errors.
C:\NELU\PERL>
 
 
Could you please suggest me some ways to solve it


Kinshuk Chandra Nayak 


      Add more friends to your messenger and enjoy! Go to http://messenger.yahoo.com/invite/
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.bioinformatics.org/pipermail/scriptome-users/attachments/20090211/30b661e3/attachment.html>