my $dbfile = "/tmp/storagedb.sqlite";
my $db;
my $rep = ();
my $selectstring = shift;

# Subs

$db = DBI->connect("dbi:SQLite:$dbfile","","") or die "ERROR: $!";

$rep = $db->selectall_arrayref($selectstring);

if (@$rep) {
    foreach my $i (@$rep) {
        foreach my $j (@$i) {
            print "$j | ";
        }
        print $/;
    }
}
$db->disconnect;