Select Code to Download

$canvas->bind($dk_img, "<Button-1>", [\&frst_clk,
      { deck => $deck, waste => $waste, img => $dk_img }]);

$VAR1 = {
          'deck' => bless( {
...
                              'max' => 52
                            }, 'Pile' )
        };

$_->{deck}

...
${@_{deck}}

## and a bunch of other big and baggy monsters ...