#!/usr/bin/perl
use CPAN::SQLite;
my $cpan = CPAN::SQLite->new(CPAN => '/home/tai/.cpan/sources');
$cpan->index();