Select Code to Download

  my $sql = "SELECT * FROM final WHERE pat = \"" . $PatenteToQuery . "
+\"" and WHERE ped = \"" . $PedimentoToQuery ."\";

#!c:/perl/bin/perl.exe

...
  }

}