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

use DBI; #need to have DBI::CSV installed for this script

my $db = DBI->connect("DBI:CSV:f_dir=./DEMO.db")
         or die "Cannot connect: $DBI::errstr";
         
my $get_rows = $db->prepare("SELECT * from DEMO.db");
$get_rows->execute() || die "can't fetch all rows";
while (my ($name,$username, $time, $n1, $n2) = 
           $get_rows->fetchrow_array)
{
   print "$time $name $username $n1 $n2\n";
}

my $get_names = $db->prepare("SELECT username from DEMO.db");
$get_names->execute() || die "can't fetch all usernames";
while (my $name = $get_names->fetchrow_array)
{
   print "$name\n";
}

__END__

DATA IN THE FILE: DEMO.db:
------------------------------(this line not in this file)
name,username,time,num1,num2
"John Smith",jhon99,"10:30:01",345,765
"John Smith",jhon98,"10:30:01",345,765
"Bob Smith",bsm01,"11:30:01",002,246

ABOVE  CODE PRINTS:
------------
10:30:01 John Smith jhon99 345 765
10:30:01 John Smith jhon98 345 765
11:30:01 Bob Smith bsm01 002 246
jhon99
jhon98
bsm01