Yes, I'm using DBI module, I've attached my function below.
sub queryDb {
my ($DSN,$DSNuser,$DSNpassword,$sql,@params) = @_;
my $dbh = DBI->connect($DSN,$DSNuser,$DSNpassword);
my $stmt=$dbh->prepare ($sql);
$stmt->execute(@params);
my @ans = $stmt->fetchrow_array;
$stmt->finish...