$ob->lookclear;	#clear the buffers
$ob->buffers(4096,4096); #read, write 
sleep 1;
until($return ne "")
{
   if (($return = $ob->input) ne "")
   {
      $ob->write ($return);
      print "return:$return a";
   }
   else
   {
     print "ERROR!! Did not receive a page yet!\n";
   }
}#end until
print "return is:$return";
undef $ob;