Help for this page

Select Code to Download

Select or download this

my $userinput = <STDIN>;
#As,Qc,Td,6c,3h
...
my $score = ScoreHand(@hand);
say $score;
#6405