#!/usr/bin/env perl

use strict;
use warnings;

use DBI;
DBI->trace(0);
my $dbh = DBI->connect('dbi:SQLite:dbname=pm_11137916_anon');

print join('|', @$_), "\n" for $dbh->selectall_array('select * from Planet');