Select Single Row from DB

				
=**************************************
= Name: Select Single Row from DB
= Description:When you only need one row from a table in your database, this is a nice, succinct way to do it.
= By: John Winger
=
= Assumes:Note that selectrow_array() is a database handle method, not a statement handle method.
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=626&lngWId=6=for details.=**************************************

#!/usr/bin/perl
use strict;
use DBI;
my $dbh = DBI->connect("DBI:mysql:db_name:host", "usrname", "pwd") or
	die("Unable to connect to the database: $DBI::errstr");
## the selectrow_array() method does the
## prepare, execute, and finish for you
my ($foo, $bar) = $dbh->selectrow_array("
	SELECT
		column_a, column_b
	FROM
		table_name
	WHERE
		id = 1
	");
$dbh->disconnect;