#!/usr/bin/perl -w
use strict;
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();