#!/usr/bin/perl -w

use Arch::Tree;

foreach my $log (Arch::Tree->new("/tmp/arch-perl")->get_logs) {
        print "-" x 80, "\n";
        print $log->date, "\n";
        print $log->summary, "\n\n";
        print $log->body;
}