#!perl
use strict;
use warnings;

use DBIx::Handy;

my $DB = DBIx::Handy->new(driver    => 'mysql',
                          database  => 'test',
                          host      => 'localhost',
                          username  => 'alex');

my $res = $DB->execute(sql    => 'SELECT * FROM tabela WHERE id = 1',
                       method => 'fetchrow_hashref');

print <<EOL;
Record number   : $res->{id}
Email           : $res->{email}
Password        : $res->{password}
EOL