&Tk::findINC searches the paths listed in @INC for a file. Since you're supplying a complete pathname for the image file, you should probably forego the call to &findINC.

This should work just fine:

my $img = $canvar->Photo( 'IMG', -file => $file );
[download]

conv