#!/usr/local/bin/perl
use utf8;
use strict;
use DBI;

my $dbh =
  DBI->connect( 'DBI:mysql:test:localhost', 'root', 'xxxxxxxx' )
  or die("couldn't connect to database");

my $text_display = $dbh->prepare('select * from quotes where 1');

$text_display->execute();

my ($text) = $text_display->fetchrow_array();

print "Text: $text" . $/;