my $object = Texas -> gameon('8');
$object -> testhand('qh','ts');  # queen hearts, ten spades
$object -> shuffle;
$object -> deal;
$object -> flop;
$object -> turn;
$object -> river;
my @winners = ($object -> whowins);