Select Code to Download

my $pdf=PDF::API2->open("$data/$pdfsource");
y $page = $pdf->openpage('1');
my $gfx=$page->gfx();

  my $qrcode = Imager::QRCode->new(
                size          => 8,
...
   
            $img->write(data => \$result, type => 'png')
             or die 'Cannot save \'png\': ', $img->errstr;

    my $png1 = $pdf->image_png($result);
    $gfx->image($png1 ,590,140,7);
...
    my $png2 = $pdf->image_png($img);
    $gfx->image($png2 ,590,140,7);