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

##</code><code>##

  my $qrcode = Imager::QRCode->new(
                size          => 8,
                margin        => 1,
                version       => 1,
                level         => 'M',
                casesensitive => 1,
                lightcolor    => Imager::Color->new(255, 255, 255),
                darkcolor     => Imager::Color->new(0, 0, 0),
            );
            my $img = $qrcode->plot("$mylink");
   
            $img->write(data => \$result, type => 'png')
             or die 'Cannot save \'png\': ', $img->errstr;

##</code><code>##

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