#!/usr/bin/perl

# require 'Annoying.pm';
# Annoying->import ();

use Date::Annoying;

$annoy = Date::Annoying->new(%Date::Annoying::interesting_days);

if ($annoy) {
  print "Today's annoying date is: ", $annoy->date(), "\n";
} else {
  die "Couldn\'t construct annoying date object.\n";
}

exit 0;
