#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Data::Dumper;
my $dbh = DBI->connect( 'dbi:Pg:database=san', 'san','psql')
               or die "Can't connect to " ;
my $stmt="Select * from public.log_table";
my $ref = $dbh->selectall_arrayref($stmt) ;
print Dumper($ref)