#!/usr/bin/env perl
# Mike Burns <mike@mike-burns.com> 2001-07-08

use strict;

chomp(my $date = shift || `date +%Y%m%d`);

srand ($date);

my @colours = (qw(red orange yellow green blue khaki black));
my ($left,$right) = (rand(@colours)%10,rand(@colours)%10);
   ($left,$right) = (rand(@colours)%10,rand(@colours)%10) if $left==$right;

print "Sneakers for $date: $colours[$left], $colours[$right]\n";