sub altLine {
    my ($arqName, $param, $value) = @_;
    my $arqTmp = $$ . '.tmp';
    my $arqLine;
    my $arqParam;
    my @aux;
    open(ARQ, "< $arqName");
    open(TEMP, "> $arqTmp");
    while ($arqLine = <ARQ>) {
          chomp $arqLine;
          @aux = split('=', $arqLine);
          $arqParam = $aux[0];
      $arqParam = &Trim($arqParam);
          if ($arqParam eq $param) {
             print TEMP "$param = $value \n";
          } else {
                 print TEMP "$arqLine\n";
          }
    }
    close ARQ;
    close TEMP;
    rename($arqTmp, $arqName);
    return;
}
[download]