Any change needed

hi
i use following code to write image in pdf .
it is writing image but not clear
can u tell me whether this is right code or i need to change any parameter
-------------------------------------------------------------------------------------------
#!/usr/local/bin/perl -w
# Change above line to point to your perl binary

use PDF::Reuse;
use Image::Info qw(image_info dim);
use strict;

my $info = image_info('summary_day.jpeg');
my $color = $info->{color_type};
my ($width, $height) = dim($info);    # Get the dimensions

prFile('image.pdf');
print "$width"."  $height \n";

my $intName = prJpeg('summary_day.jpeg',$width,$height);
my $str = "q\n";
$str   .= "$width 1 1 $height 10 10 cm\n";
$str   .= "/$intName Do\n";
$str   .= "Q\n";
prAdd($str);
prEnd();
-------------------------------------------------------------------------------------------

thanks and regards
arun