#!/usr/bin/perl
use strict;
use warnings;
use DBI;
use Data::Dumper;

# beispielskript; bitte Fehlerbehandlung selbst einfuegen!

my $dbh  = DBI->connect("dbi:SQLite:dbname=test.db","","");
my $stmt = 'SELECT * FROM testa';

my $sth = $dbh->prepare( $stmt );

$sth->execute;

while ( my $ref = $sth->fetchrow_hashref() ) {
    print Dumper $ref;
}

__END__

Testtabelle erstellt mit SQLite3 und folgendem SQL:
CREATE TABLE testa (
   NAME TEXT,
   WHAT TEXT
);

INSERT INTO testa VALUES( 'foo', 'bar' );
INSERT INTO testa VALUES( 'ggg', 'lol' );