Help for this page

Select Code to Download


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