[perl] aonde esta o erro????

[Luiz Fernando]

$ ./acao.pl
syntax error at ./acao.pl line 21, near "open "
syntax error at ./acao.pl line 29, near "}"
Execution of ./acao.pl aborted due to compilation errors.
$

############# Acao.pl
elsif($FORM{'acao'} eq "atualizar"){                    #line 13
open(PRODUTO, "<../produtos/produtos.dat");             #14
        while (<PRODUTO>) {                                     #15
        # Separa os campos pelo caractere |             #16
        ($idemp, $idprod, $prod, $prec) = split(/\s*\|\s*/, $_); #17
        &limpa                                          #18
                if($FORM{'idproduto'} eq $idprod){      #19
                $subt = sprintf("%.2f", $prec * $FORM{'qtd'}); #20
                open (PEDIDO, ">>cestas/$FORM{'cgc'}.dat");     #21   ERRO
                print PEDIDO "$idprod|";                #22
                print PEDIDO "$FORM{'qtd'}|";   #23
                print PEDIDO "$prod|";          #24
                print PEDIDO "$subt|";          #25
                print PEDIDO "$prec";           #26
                close PEDIDO;                   #27
                }                                       #28
        }                                               #29    ERRO
close PRODUTO;
}
sub limpa{
system("grep -v \"$FORM{'idproduto'}|$FORM{'qtd'}\" cestas/$FORM{'cgc'}.dat
> cestas/$FORM{'cgc'}1.dat");
system("mv cestas/$FORM{'cgc'}1.dat cestas/$FORM{'cgc'}.dat");
}
################ fim



[]'z
fernando
-------------------------------
  Luiz Fernando
  [EMAIL PROTECTED]

  http://www.3lj.com.br

  +55 (48) 322-0699 - 3lj
  +55 (48) 991-6697 - Celular
  +55 (48) 244-0994 - Casa
-------------------------------
http://www.mrweb.com.br/perl/
=======================================
>>No site da lista, voce tera tudo sobre PERL,
>>LINUX, PHP, ASP e informacoes, cadastramento
>>e descadastramento da Lista.
=======================================