#!/usr/bin/perl -w

use strict;
use DBI;

my $dbh = DBI->connect('DBI:mysql:DB_NAME', 'USERNAME', 'PASSWORD')
	or die "Couldn't open database: $DBI::errstr; stopped";




my $sth = $dbh->prepare("SELECT date, time, title, text FROM thoughts WHERE id = 3")
	or die "Couldn't prepare statment: $DBI::errstr; stopped";

$sth->execute() or die "Couldn't execute statement: $DBI::errstr; stopped";

while ( my ($date, $time, $title, $text) = $sth->fetchrow_array() ) {
	print STDOUT "date: $date time: $time\ntitle: $title\ntext:\n$text";
}

dbh->disconnect();