use strict;
 
my $openCount;
my $closeCount;
my $foundReturn;
my $myCfile;
 
die "usage: perl $0 <filename>\n" 
    if (!($ARGV[0]));
 
die "file: <",$ARGV[0],"> does not exist\n" 
    if (! -e ($myCfile = $ARGV[0]));
 
open(fp,$myCfile);
open(writeme,">output.txt");
 
print "reading <",$myCfile,"> ...\n";
 
$openCount = $closeCount = $foundReturn = 0;
while(<fp>)
{
    if ($_ =~  /return/)  {
        print "hey am inside return if\n";
        $foundReturn=1;
    }
    elsif(($_ =~ /^\{/) || ($_ =~ /\{$/)) {
        $openCount++;
        print "openCount1=", $openCount ,"\n";
    }
    elsif(($_ =~ /^\}/) || ($_=~ /\}$/ )) {
        $closeCount++;
        print "closeCount=", $closeCount,"\n";
    }
    if($openCount==$closeCount) {
        print "count is equal\n";
    }
}

int main (int argc, char *argv[])
{
	unsigned *tempString, *tempPtr;
	unsigned i=0, opers=0, ptr=0, key;
	FILE *fp;
	typedef struct Operator_s {
		char Name[26];
		char Oin[11];
		char Password[16];
	} Operator_t;