#!/usr/bin/perl

use strict;
use warnings;
use v5.14;

use DBI;

my $dbh = DBI->connect('dbi:Pg:dbname=$dbname', '$user', '$pass', {
AutoCommit => 0 } );

my ($text, $lang, $author) = $dbh->selectrow_array(
        q[ select(
                        text_element,
                        resource.language,
                        display_name)
                        from resource
                                join users on ( created_by = users.id )
                        where short_id = '12345';]
        );

say $text;
say $lang;
say $author;