---------------------------------------------------------
|Name   | Address       | Tel         | Email            |
---------------------------------------------------------
| Bob   | 1 London Road | 00000000000 | bob@london.co.uk |
---------------------------------------------------------
| Tony  | 10 Downing St | 99999999999 | tony@no10.co.uk  |
---------------------------------------------------------

##</code><code>##

Name: Bob
Address: 1 London Road
Tel: 00000000000
Email: bob@london.co.uk

Name: Tony
Address : 10 Downing St
Tel: 99999999999
Email: tony@no10.co.uk

##</code><code>##

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" 
	}