#!/usr/bin/perl -w
use DBI;
use strict;

# set up info to connect to db
my $data_source="dbi:mysql:     <your username here>        ;host=bioed";
my $user="    <your username here too>    ";
my $password="     <your password here>     ";

# connect
my $dbh = DBI->connect($data_source, $user, $password) or 
    die "Can't connect to $data_source:  $DBI::errstr";

# prepare a select statement for execution
my $sth = $dbh->prepare( q{

<your query here>

}) or die "Can't prepare statement: $DBI::errstr";

# execute the statement
my $rc = $sth->execute
or die "Can't execute statement: $DBI::errstr";

# create local variables for receiving the data
my (    <your list of variables here, one for each field in the select>     );

#print a header for the output
printf (     <FORMAT_STRING, LIST>      );

# loop through rows of data and print them
while (   <your list of variables again>    = $sth->fetchrow_array) {
   printf (     <FORMAT_STRING, LIST>      );
}

# check for problems which may have terminated the fetch early
die $sth->errstr if $sth->err;

# disconnect from database
$dbh->disconnect;