#!/usr/bin/perl -w
query = "SELECT * FROM logs_column WHERE logged_in > NOW()::timestamp - interval '24hour'";
my $driver  = "Pg"; 
my $database = "dbase";
my $dsn = "DBI:$driver:dbname = $database;host = 127.0.0.1;port = 5432";
my $userid = "postgres";
my $password = "postgres";
my $dbh = DBI->connect($dsn, $userid, $password, { RaiseError => 1 }) 
   or die $DBI::errstr;

print "Opened database successfully\n";
$ref = $dbh->($query);
print ("\n", @$ref);