Select Code to Download

#widgets in Card

...
                   -variable=>\$cardspeed,
                   -command=>\&card_choice
                   )->pack();

#widgets in Card Usage

...
                    -relief=>"raised",
                    -borderwidth=>3
                    )->pack();

sub card_choice {
    if ($cardspeed eq "fast") {
...
                   ]);
    }
}