use GD;
use GD::Graph::Data;
use GD::Graph::bars;

my $data = GD::Graph::Data->new(
          [["2001", "2002", "2003", "2004", "2005", "2006", "2007", "2008", "2009", "2010"],
          [ 10.2, 7.5, 4.8, 5.5, 5.5, 5.3, 4.6, 5.3, 5.7, 3.6],
          [ 9.8, 8.4, 4.4, 5.2, 5.3, 5.2, 4.9, 6.1, 6.3, 3.8]]);

my $graph = new GD::Graph::bars( 1200, 800 );

$graph->set(
title => 'Test Graph',
types => [qw(bars bars)],
transparent => 0,
bar_spacing => 0,
bargroup_spacing => 20,
show_values => 1,
x_labels_vertical => 1,
interlaced => 0,

);

my $gd = $graph->plot( $data );
open (MYFILE, '>test.gif');
binmode MYFILE;
print MYFILE $gd->gif();
close (MYFILE);

##</code><code>##

use strict;
use warnings;

use PDF::API2;

my $pdf = PDF::API2->new( -file => "sample.pdf" );

my $page = $pdf->page;
$page->mediabox(792,612);

my $photo = $page->gfx;
my $photo_file = $pdf->image_gif('test.gif');
$photo->image( $photo_file, 100,100,600,400);

$pdf->save;
$pdf->end();