#!/usr/bin/perl

use strict;
use warnings;
use DBI;
use feature qw/say/;
use Data::Dumper;

my %c = (
	dbname => 'test',
	host   => 'localhost',
	port   => 5432,
	user   => 'test',
	pw     => 'test',
);


my $dbh = DBI->connect(
	"dbi:Pg:dbname=$c{dbname};host=$c{host};port=$c{port};",
	$c{user},
	$c{pw}
);

die $DBI::errstr if $DBI::err;

my $sth = $dbh->prepare(
	'select * from users
	/* is this a comment 
	? 
	*/
	where id = /* ? or */ ?'
);


my $rv = $sth->execute(1);

my $res = $sth->fetchall_arrayref({});

print Dumper $DBI::errstr, $rv, $res;