Select Code to Download

#!/usr/bin/env perl
use 5.014;
...
    --cards N       cards per hand [5]

=cut

deck->new(cards => 52);
deck->shuffle();
deck->deal(cards => 5, hands => 4);