Help for this page

Select Code to Download


  1. or download this
    print $parties[ rand @parties ];
  2. or download this
    my $party_ix = rand @parties;
print $parties[ $party_ix ];