$|=1;
open F, ">R:/Test.txt" or die $!;
print F "OK$/";
close F;

open F, "R:/Test.txt" or die $!;
print <F>;
close F;

use Imager::QRCode qw(plot_qrcode);

my $img = plot_qrcode("blah blah");
$img->write(file => "R:/qrcode.gif") or die $!; # this is line 13

##</code><code>##

OK
No such file or directory at C:\Documents and Settings\Panda\Desktop\test.pl line 13.