#!/usr/bin/perl -w
use strict;
use Project::Gantt;

my $chart	= new Project::Gantt(
	description	=>	'More than a day',
	file		=>	'moredys.png');

my $me	= $chart->addResource(
	name	=>	'Alex');

$chart->addTask(
	description	=>	'Work',
	resource	=>	$me,
	start		=>	'2004-08-01',
	end		=>	'2004-08-04');
$chart->addTask(
	description	=>	'Vacation',
	resource	=>	$me,
	start		=>	'2004-08-05',
	end		=>	'2004-08-16');
$chart->addTask(
	description	=>	'Get ready for school',
	resource	=>	$me,
	start		=>	'2004-08-17',
	end		=>	'2004-09-04');
$chart->display();