print "Content-type: text/html\n\n";

use DBI;

# database information

# make connection to database
$dbh = DBI->connect($connectionInfo,$userid,$passwd);

# prepare and execute query
$query = "SELECT * FROM employees ORDER BY lastName, firstName";
$sth = $dbh->prepare($query);
$sth->execute();

# assign fields to variables
$sth->bind_columns(undef, \$employeeID, \$firstName, \$lastName);



print "Employees in the inventory database:<p>";
print "<form action=\"displayResults.pl\" method=post>";
print "<select name=employeeID><option value=\"\">Select an employee</option>";

# output employee list to browser as drop-down listings
while($sth->fetch()) {
   print "<option value=$employeeID>$firstName $lastName</option>";
}

print "</select><input type=submit name=submit value=submit></form>";

$sth->finish();

#disconnect from database
$dbh->disconnect;