Select Code to Download

  if($_[1]->num_cards() <= 0) { # deck out of cards
    $_[0]->delete($_[4]); # Delete card back photo
...
    ($_[0])->bind($_[3], "<Button-1>",
                       [\&dk_clk, $_[1], $_[2], $_[3], $_[4]]);
  }

$canvas->bind($dk_img, "<Button-1>",
                [\&frst_clk, $deck, $waste, $dk_img, $back]);
...
sub min {
  $_[0] < $_[1] ? $_[0] : $_[1];
}