$ env PGDATABASE=merijn perl -MDBI -wE'say DBI->connect("dbi:Pg:")->{Name}||"not known"'
not known
$