Previous message was mine...
For correct this problem I create this sub:

sub myPhoto
{
 my $f=shift;
 copy($f,fn($tmpdir.'myphototmp'));
 $TOP->Photo(-file=>$tmpdir.'myphototmp');
}
[download]

and use it in code as:
createImage(x,y,-image=>myPhoto($filename));

This is some slowly but it work!

P.S.: I mean Perl/Tk and UTF-8 international support get for me many new surprises.