my $card_dir = 'C:\tk_proj\cards\gif';
my $ext      = 'gif';
my $back     = $canvas->Photo(-file   => "$card_dir\\b1fv.$ext",
                              -format => 'gif');
...
my $dk_img  = $canvas->createImage(50,120, -image => $back);
...
$canvas->bind($dk_img, "<Button-1>", [\&dk_clk, $deck, $waste]);