#!/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();

##</code><code>##

dooberwah@kyle:~$ perl perl/dbi.pl
Can't load '/usr/local/lib/perl5/site_perl/5.6.1/i686-linux/auto/DBI/DBI.so' for module DBI: libgcc_s.so.1: cannot open shared object file: No such file or directory at /usr/local/lib/perl5/5.6.1/i686-linux/DynaLoader.pm line 206.
 at /usr/local/lib/perl5/site_perl/5.6.1/i686-linux/DBI.pm line 189



BEGIN failed--compilation aborted at /usr/local/lib/perl5/site_perl/5.6.1/i686-linux/DBI.pm line 189.
Compilation failed in require at perl/dbi.pl line 6.



BEGIN failed--compilation aborted at perl/dbi.pl line 6.
dooberwah@kyle:~$