Help for this page

Select Code to Download

Select or download this

while (1)
{   
...
   print $ret;
   if ($ret=~/^OK/ || $ret=~/^ERROR/) { last}
}