use P5 qw[  DBI DBD::Pg ];

...
my $dbi = P5Object( "DBI->connect( $dataSource, $userName, $userAuth, \%attrs" ); );
my $sth = $dbi->prepare( 'SOME SQL HERE' );
...