while (1)
{   
   my $ret=<PORT>
   print $ret;
   if ($ret=~/^OK/ || $ret=~/^ERROR/) { last}
}