Select Code to Download

#!/usr/bin/perl -w
use strict;
...
    my $class = shift;
    bless [@_], $class;
}

package main;

...
         Jack Queen King/)[$card % 13],
        (qw/Clubs Diamonds Hearts Spades/)[$card / 13];
}

package LuckyDeck;
use overload
...
print 'List Context',$/;
print for <$quux>;
print $/;