You do have a webserver installed, right? Which one? And did you read its manual? And the error log files?

Hi Yes I have apache2 and I am running a Windows box theres no chmod +x, and I follow the instructions from these web site : http://www.thesitewizard.com/archive/addcgitoapache.shtml to make CGI work, yes I check the log files and nothing

If you found nothing because there is nothing to find, then you can be sure that apache didn't try to run the file as a CGI script, but delivers it as plain text.

Which means that there is no AddHandler cgi-script .pl directive active.

You could try to post the relevant parts of your apache configuration file here, maybe somebody can tell you what went wrong.

(Just to be sure, you restarted the web server after changing the config, right? and you access your pages via http://127.0.0.1/ ?)

Your CGI's first printed response must be:

print "Content-Type: text/plain\n\n";
[download]

print "Content-Type: text/html\n\n";
[download]

based upon the type of response your CGI program is generating. Those two newlines at the end of the string are important. It assures a blank link between your content header and your actual content.

Best regards,

HI
Here's the Perl code


#!/usr/bin/perl 

use strict;

use DBI;
use CGI;



my $DB_Host = 'localhost';
my $DB_Name = 'widgets';
my $DB_User = 'root';
my $DB_Pass = 'xyz123';



{  # begin main



  #--
  # Create a new CGI object to process the HTML form.

  my $cgi = new CGI;



  #--
  # Get the value of the "LastName" field from our HTML input form.

  my $lastNameToQuery = $cgi->param('LastName');



  #--
  # Get a connection to the database server, aborting on failure.

  my $dbh = openDBConnection($DB_Host, $DB_Name, $DB_User, $DB_Pass);

  if ( ! defined $dbh ) {
    printErrorPage("Could not open a connection to the database!");
    exit;
  }



  #--
  # Define the query, prepare it, execute it then get the results as a
+n array of hash references.

  my $sql = "SELECT * FROM names WHERE Last = \"" . $lastNameToQuery .
+ "\"";

  my $sth = $dbh->prepare($sql);

  $sth->execute();

  my $queryResults = $sth->fetchall_arrayref({});



  #--
  # Print the results as an HTML table.
  #
  # Note: the {'Last'} and {'First'} found below refer to column names
+ in the database table.

  print STDOUT "Content-Type: text/html\n";
  print STDOUT "\n";

  print STDOUT "<TABLE BORDER=\"1\">" . "\n";

  print STDOUT "<TR><TH>Last Name</TH><TH>First Name</TH></TR>" . "\n"
+;

  foreach my $i (0 .. $#$queryResults) {
    print STDOUT "<TR><TD>" . $queryResults->[$i]->{'Last'} . "</TD><T
+D>" . $queryResults->[$i]->{'First'} . "</TD></TR>" . "\n";
  }

  print STDOUT "</TABLE>" . "\n";
  


  #--
  # Close our database connection.

  $dbh->disconnect();



}  # end main



# ====================================================================
+=====
#              F U N C T I O N    D E F I N I T I O N S
# ====================================================================
+=====



# --------------------------------------------------------------------
+-----
# |
# | Function  : printErrorPage
# |
# | Parameter : $errorMessage = the error message to print
# |
# | Return    : none
# |
# | Comments  : Prints an HTML error message.  This prints the "Conten
+t-Type"
# |             HTTP header.
# |
# --------------------------------------------------------------------
+-----

sub printErrorPage
{
  my $errorMessage = shift;

  print STDOUT "Content-Type: text/html\n";
  print STDOUT "\n";

  print STDOUT "<H1>" . $errorMessage. "</H1>\n";

}



# --------------------------------------------------------------------
+-----
# |
# | Function  : openDBConnection
# |
# | Parameter : $host     = the name or ip of the database server
# | Parameter : $db       = the name of the database to connect to
# | Parameter : $username = the username to use when connecting to the
+ MySQL server
# | Parameter : $password = the password to use when connecting to the
+ MySQL server
# |
# | Return    : A handle to the database connection.
# |
# | Comments  :
# |
# --------------------------------------------------------------------
+-----

sub openDBConnection
{
  my $host     = shift;
  my $db       = shift;
  my $username = shift;
  my $password = shift;

  my $dbh;  # Handle to a database connections.

  $dbh = DBI->connect("DBI:mysql:$db:$host",
                      $username, $password,
                      { RaiseError => 0, AutoCommit => 1 }
                     );

  if ( ! defined ($dbh) ) {
    return undef;
  }
  else {
    return $dbh;
  }

}
[download]

I hope it could help you

You should definatley have a look at the documentation for the CGI module on CPAN as you can replace all the HTML you've typed in with a few of its functions. http://search.cpan.org/~lds/CGI.pm-3.31/CGI.pm

---

use strict;
use CGI;
[download]