#!/usr/bin/perl
#
# A Martian Sends A Postcard Home
# -at night when all the colors die
# -they hide in pairs and read about themselves in color
# -with their eyelids shut

@night = grep{1}@colors or die;
for(join('',each %they)){$hide =~ m|$_|;}
read(ABOUT_THEMSELVES,$color);
while $eyelids->shut();