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( );

##</code><code>##

error:   	Can't call method "val" on an undefined value at /usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image.pm line 99.
context:  	
...  	
95:  	sub width {
96:  	my $self = shift @_;
97:  	my $x=shift @_;
98:  	$self->{Width}=PDFNum($x) if(defined $x);
99:  	return($self->{Width}->val);
100:  	}
101:  	
102:  	=item $ht = $img->height
103:  	
...  	
code stack:  	/usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image.pm:99
/usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image/JPEG.pm:147
/usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image/JPEG.pm:81
/usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image/JPEG.pm:116
/usr/lib/perl5/site_perl/5.8.0/PDF/API2.pm:1898
/usr/local/apache/html/bioinfo/pfc/view/view_digegel.mhtml:86
/usr/local/apache/html/bioinfo/pfc/view/autohandler:107
/usr/local/apache/html/bioinfo/pfc/view/syshandler:42