Connecting to a DB 

CREATE TABLE property (
    key             TEXT PRIMARY KEY,
    value           TEXT,
    show            BOOLEAN NOT NULL DEFAULT False,
    inserted        TIMESTAMP WITH TIME ZONE NOT NULL DEFAULT CURRENT_TIMESTAMP,
    updated         TIMESTAMP WITH TIME ZONE NOT NULL DEFAULT CURRENT_TIMESTAMP
);
tie %$h,
    'Tie::DBI',
    'dbi:Pg:dbname=test;user=test',
    'property',
    'key',
    { CLOBBER => 2 };