Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl
use strict;
...

    until ($rx =~ m/OK/);
    print "OK received\n";