#!/usr/bin/perl -w
use DBI;
my $bdd = DBI->connect("dbi:Pg:dbname=web;","tfe","monger") or die "error connecting";
