errrorrrrrrr

[Javeed SAR]

hi,


What i am doing in this script, if .vbp or .dsp exists the $counter should
be incremented.
If $counter >=1 it should say the projct already exist.



I have a doubt, it is giving syntax  error as follows:

syntax error at \\blrk35ed\javeed\proj.pl line 51, near "}"
Execution of \\blrk35ed\javeed\proj.pl aborted due to compilation errors.

Am i doing something wrong in my script


#!c:\perl\bin\perl 
#!c:\post\postie\postie.exe

$counter=0;
$PN="$ENV{'CLEARCASE_PN'}";
($FNAME, $FEXTENSION)=split(/\./,$PN);
$SMTP_SERVER="132.186.192.2";
#my $EMAIL_DOMAIN="sisl.co.in";
$SUBJECT="ADDED DSP/VBP PROJECT TO CLEARCASE(NOTE: THIS IS AUTOMATICALLY
GENERATED MAIL MESSAGE.)";
#@EMAIL_TO_LIST =("SAR.Javeed\@sisl.co.in","Manoj.Panda\@sisl.co.in");
@EMAIL_TO_LIST1=("SAR.Javeed\@sisl.co.in");
my $DATE_TIME=localtime;
#print "$DATE_TIME";



#Trigger activation mail notification for controlled action on VOB
#\($ENV{'CLEARCASE_VOB_PN'}\):\n
#operation:$ENV{'CLEARCASE_OP_KIND'}\n
my @MSG = 
("           User:$ENV{'CLEARCASE_USER'}\n
             Date:$DATE_TIME\n
          Element:$ENV{'CLEARCASE_XPN'}\n
          Comment:$ENV{'CLEARCASE_COMMENT'}\n");

#############################################

#my @MSG1 =("\n\n\n   NOTE: THIS IS AUTOMATICALLY GENERATED MAIL
MESSAGE.\n");

#open(FD,">c:\\temp\\testblat.txt"); 
open(FD,">\\\\blrk35ed\\temp\\testblat.txt"); 
                    foreach $msg(@MSG){ 
                        print FD $msg; 
                        print "\n"; 
                    } 
        close(FD); 

#print @MSG; 
$msg = join("",@MSG); 
#print $msg; 
$msg=~ s/\\/\\\\/g;
$FEXTENSION=~ s/\\/\\\\/g;
#print "$FEXTENSION";

if (($FEXTENSION =~ /^vbp$/i) || ($FEXTENSION =~ /^dsp$/i))
 {$counter=$counter+1; }