use strict;
use PDF::Reuse::OverlayChart;
use PDF::Reuse;

   prFile('myFile.pdf');
   my $s = PDF::Reuse::OverlayChart->new();
   
   my $a = 52;
   my $b = 22;
   my $c = 25;
   $s->columns(qw(Status  Ahead Ontime  Delay));
   $s->add(      'Percent',     $a,    $b ,  $c);      
   #$s->color( 'bright' );
   $s->color( '0.3 0.6 0.3' );

   $s->draw(x     => 100,
            y     => 200,
            xsize => 1,
            ysize => 1,
            height=> 300,
            width => 300,
            initialMinY=>10,
            initialMaxY=>100,            
            title => 'File Status',
            yUnit => 'Percentage',
            type  => 'bars');
   prEnd();