#!/usr/bin/perl -w

use lib( qw(.) );
use EnoughMonkeys::Simple;

$| = 1;	# Autoflush
$monkey = new EnoughMonkeys::Simple;

$monkey->displayHeader( my $all = 1 );

# do the monkey history thing
print $monkey->getAll();

$monkey->displayFooter( my $all = 1 );

exit;