#!/usr/local/bin/perl -w
 use strict;
 use DBD::SQLite;

 my( $home ) = glob "~";
 my $dbfile = "$home/.local/share/" .
 "zeitgeist/activity.sqlite";
 my $dbh = DBI->connect(
 "dbi:SQLite:dbname=$dbfile", "", "" );

 my $sth = $dbh->prepare(
 "SELECT * from uri" );
 $sth->execute();

 while( my( $id, $uri ) =
 $sth->fetchrow_array() ) {
 print "$uri\n";
 }