#!/usr/bin/perl

use strict;
use warnings;

use Database::MySQL;

# Connect to database
my $db = new Database::MySQL(
	'username' => 'jsurrati_pgtodo',
	'password' => 'todo11!!',
	'database' => 'jsurrati_pgtododev'
)->connect();

my $sql = qq~
	SELECT name
	FROM projects
	WHERE id = (SELECT project FROM items WHERE id = ?)
~;
my $statement = $db->statement($sql)->execute(2);

my $row = $statement->fetch();

print "$row->{'name'}\n";

# Unsuccessful query
$sql = qq~
	SELECT zyz
	FROM noTable
	WHERE x = ?
~;
$db->statement($sql)->execute(4);