#!/usr/bin/perl -w

use strict;
use lib qw(lib);
use Chronology::Date;
use Data::Dumper;


if(@ARGV == 1 && $ARGV[0] eq '-h') {
   die "Parses dates and presents it numerical and string value\n./date.pl\n";
}


while(my $date = <>) {
   my $d = new Chronology::Date($date);
   print Dumper($d);
   printf "%d #%s#\n", int($d), $d;
}