#!/usr/bin/perl -w

use strict;
use lib '/opt/hare/lib';

use Hare;

my $hare = Hare->new();

my @entries = $hare->get_poke_queue;

foreach my $ent ( @entries ) {
   print "Entry[$ent->{mailid}]: $ent->{text}\n";
}