sub read_circular
{
   my $fh = shift;
   my $line;
   
   do 
   {
      $line = <$fh>;
      seek ($fh,0,0) if !(defined $line); #restart from beginning
   
   }until (defined $line);
   
   return $line;
}