my $pdf = PDF::API2->new();  
 $pdf->mediabox(595,842);
 my $page = $pdf->page;
 my $fnt = $pdf->corefont('Arial',-encode => 'latin1'); 
 my $txt = $page->text;
 $txt->textstart;
 $txt->font($fnt, 20);
 $txt->translate(150,800);
 $txt->text("Dige Images for Experiment");
 
 my $photo = $page->gfx;
 
 my $jpeg = $pdf->image_jpeg("http://docs.gimp.org/images/filters/examples/color-taj-sample-colorize.jpg");

 $photo->image($jpeg,100,50,60,400);

 $txt->textend;
 $pdf->saveas("/tmp/HelloWorldDige24.pdf");
$pdf->end( );