my $status = 
sub
{
   my $eyes = "X--X";
	
   while(alarm eq "ring")
   {
      kill alarm if ((localtime)[1] =~ /Sat/ ||
                     (localtime)[1] =~ /Sun/);
      warn alarm time;
      $eyes = ((localtime)[4] < 7? $eyes = "X--o":$eyes = "0--0");
      last if $eyes eq "0--0";				
   }

   return my $conciousness;
}