#!/usr/bin/perl -w
use strict;
use DBI;

#
#  Connect to the database.
#
my $dbh = DBI->connect( "dbi:SQLite:dbname=logs.db", "", "" );


my $all = $dbh->selectall_arrayref("SELECT ip,COUNT(*) AS Number FROM accesses GROUP BY ip ORDER BY Number DESC, ip" );

foreach my $row (@$all) 
{
    my ($ip, $count) = @$row;
    print "$ip \t\t| $count\n";
}

#
#  Disconnect.
#
$dbh->disconnect();