my $pdf = PDF::API2->new(-file=>"$PdfOut");
  for ($a=0;$a<=$#TifList;$a++) {
   $ImgFilePath =join(".",$TifList[$a][1],$TifList[$a][3]);
    $ImgFilePath=~tr/\\/\//;
    chomp $ImgFilePath;
     my $page = $pdf->page;
      $pdf->preferences(-fit=>1,
                         -fitwindow    =>1
                        );
        $page->mediabox(8.5/in, 11/in);
        my $img = $page->gfx;
         die("Unable to find image file: $!") unless
             -e "$ImgFilePath";
           my $ImgFile = $pdf->image_tiff("$ImgFilePath");
           $ImgFile, .1/in, .1/in, 8.4/in, 10.75/in );
            $img->image($ImgFile);                       
                        }
$pdf->save;
$pdf->end;
system( "start iexplore.exe -e $PdfOut");