$rudolph = new Reindeer(nose=>'#ff0000',shininess=>255);
if ($you{seen} == $rudolph->{nose} && (!$you{say} % 2)) { #hmmm...tenuous:)
	$rudolph->{nose} = glow(); 
}
foreach (@reindeers) {
	$_->laugh($rudolph);
	$_->name_call($rudolph);
}
join ('games',grep {$_ != $rudolph} @reindeers);

$tonight = new Eve(timelocal(0,0,22,24,11,102),'foggy');
if ($rudolph->{shininess} > 200) {
	$santa->say($sleigh->guide($rudolph,$tonight));
	foreach (@reindeers) {
		$_->love($rudolph);
		$_->shout('glee',
			eval{open H ">>.history";print H $rudolph;close H;}
		);
	}
}