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;