Dados obtidos da tabela:

<?
$con = mysql_connect("localhost", "usuario", "senha");
$query = "SELECT codigo, nome FROM minha_tabela";
$result = mysql_db_query("nome_da_sua_base_de_dados", $query);
for($i = 0; $i < mysql_num_rows($result); ++$i) {
$linha = mysql_fetch_array($result);
$codigo = $linha[0];
$nome = $linha[1];
print("$codigo - $nome<br>");
}
?>

  Resultado que aparecerá na tela do usuário:

  Dados obtidos da tabela:

1 - Nome teste (exemplo)
2 - Lista de nomes obtida da minha_tabela
3 - Nomes de serviços e sistemas
4 - Registro
5 - Linux
6 - MySQL
7 - Windows
8 - DOS
9 - Sun Solaris
10 - Domínio
11 - Fapesp
12 - Hospedagem
13 - (esta lista é um exemplo)

<?
$db = mysql_connect ("localhost", "usuario", "senha");
mysql_select_db("database",$db);
$inserir = mysql_query("INSERT INTO `tabela` (`id`,`nome`,`email`,
`telefone`,`endereco`, `bairro`,`cidade`,`estado`, `cep`)
VALUES('','$nome','$email','$telefone','$endereco','$bairro','$cidade',
'$estado','$cep')");
mysql_close ($db);
?>

Exemplo de CGIs

#!/usr/bin/perl

BEGIN {
# Certifica-se que esta' no diretorio corrente
chdir (${[($0 =~ /^(.*)[\\\/][^\\\/]+$/)]}[0] || ".");
unshift @INC,".";
}

use strict;

use DBI; # driver de acesso a base de dados

$|=1;

# Inicializa a base de dados
my $dbh = &Connect();

eval {

# prepara a query
my $query = "select * from exemplo_1, exemplo_2 where
(exemplo_1.id_exemplo_1 = exemplo_2.id_exemplo_2)";

# executa a query
my ($sth,$rv) = &sql($query);

# pega o resultado
my @result = $sth->fetchrow();

# retorna o resultado para HTML
print "Content-type: text/html\n\n";
foreach my $item (@result) {
print "Nome 1: $item->{'nome_exemplo_1'} Nome 2:
$item->{'nome_exemplo_2'}
";
}
exit;
};

###############
# Funcao que conecta na base de dados

sub Connect {
my $server = 'localhost';
my $module = 'mysql';
my $database = 'dominio'; # a ser criada
my $username = 'usuario'; # a ser criado
my $password = 'senha'; # a ser criada

my $dsn = "dbi:$module:$database:$server";
(my $dbh = DBI->connect($dsn,$username,$password,$module)) || die($DBI::errstr);
return $dbh;
}

###############
# Funcao que realiza uma consulta a base de dados

sub sql {
# Descricao: Executa uma query
# Entrada: uma query
# Saida: ($sth,$rv)

my $query = shift;
my $sth = $dbh->prepare($query) || die ("Nao prepara query $query\n");

my $rv = $sth->execute() or die "Nao executa query\n
$query\n($DBI::errstr)\n";
return ($sth, $rv);
}