#!/usr/bin/perl -w

use strict;
use lib qw(lib);
use Chronology;

die "usage: timeline.pl file module >img.png\n" unless(@ARGV == 2);

my ($file, $module) = @ARGV;

my $c = new Chronology();
$c->load($module, $file);

binmode STDOUT;

print $c->timeline(width => 600)->png();