#!/usr/bin/perl -w

use AnyData;
my $filename = '/var/log/apache2/access.log.1';
my $weblog = adTie( 'Weblog', $filename );
while (my $hit = each %$weblog) {
	printf("%-10s %s\n", $hit->{remotehost}, $hit->{request}) if $hit->{request} =~ m{ /~dpavlin }x;
}

