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