A Perl Implementation Of Blackjack