trouble with curly brackets

[Chris Zampese]

When I execute the folowing script (to insert form input into $In), I get an error 
message saying 

    unmatched right curly bracket line 60 at end of line
    syntax error near "}" Line 60

But I have been through the code over and over, and as far as I can see, all the 
brackets match up??

   Can anyone with a fresh pair of eyes see where I am going wrong??


sub Parse
{
my $buffer;
if($ENV{REQUEST_METHOD}eq'GET')
{$buffer=$ENV{QUERY_STRING};}
else {read(STDIN,$buffer,$ENV{CONTENT_LENGTH});}
my @p = split(/&/,$buffer);
foreach(@p)
{
$_=~tr/+//;
my ($n,$v)=split(/=/,$_,2);
$n=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$v=~s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$v=~s/(\<.*?)(embed|object|script|applet)(.*?\>)/$1$3/gis;
if($In{$n}) {$In{$n}.="\t$v";}
else {$In{$n}=$v;}
}
}
#sub Parse

This is only some of the code, the subroutine Parse () is called at the top of the 
script,

  Thanks