use DBI;

#	my $sql = "SELECT * FROM win32_processor";
	my $sql = "SHOW FIELDS FROM win32_processor";


	# Connect to the database.
	if (! saracen_open_database_connection 
			(	\$dbh,
				$program_config{saracen_database},
				$program_config{saracen_admin_login},
				$program_config{saracen_admin_pass}
			)
		)
	{
		# Indicate that a problem occured.
		return 0;
	}

	if (! saracen_execute_query(\$dbh, \$sth, $sql))
	{
		return 0;
	}

	#output database results
	while (@row = $sth->fetchrow_array)
	{	 
		print "@row\n" 
	}