my $o;
  while (1)
  {
       $o = new Test;
  }