#!/usr/bin/perl

use warnings;
use strict;
use Storable qw(freeze thaw);
use DBI;

my $dbh = DBI->connect("dbi:SQLite:dbname=/root/testlib.db","","");

my @books=(
			{
				'ISBN' => '0596004788',
				'Title' => 'Learning Perl Objects, References, and Modules'
			},
			{
				'ISBN' => '0596001320',
				'Title' => 'Learning Perl, Third Edition'
			},
			{
				'ISBN' => '0596003137',
				'Title' => 'Perl Cookbook, Second Edition'
			},
		);

my $book_list = freeze(\@books);
$dbh->do("INSERT INTO BOOKS (BOOK) values (?)",undef,$book_list);

my $sth = $dbh->prepare( 'select * from BOOKS' );
$sth->execute();
my $book= $sth->fetchrow_array ;

my $new_list = thaw($book);

foreach(@{$new_list}){
	print "$_->{'ISBN'} $_->{'Title'}\n";
}

##</code><code>##

0596004788 Learning Perl Objects, References, and Modules
0596001320 Learning Perl, Third Edition
0596003137 Perl Cookbook, Second Edition