codice:
#!/usr/bin/perl
use CGI qw(:all);
use Mysql;

print(header());
$dbc=DBI->connect("dbi:mysql:database=gbCGI;host=localhost;port:3306","root","doggpw");

$dbc->do("insert into gbCGI_tab (nick, data, titolo, messaggio) values ('Uno', now(), 'Due', 'Tre')");

$est=$dbc->prepare("select nick, titolo, data,  messaggio from gbCGI_tab");
$est->execute();

while(@cont=$est->fetchrow_array()) {
 print($cont[0], $cont[1], $cont[2], $cont[3], "
");
};

$est->finish();

$dbc->disconnect();