Select Code to Download

use warnings;
use strict;
...
    $rx_ended = 0;
    $data = '';
}

use warnings;
use strict;
...

    $s->puts($_);
}

$ perl examples/rx.pl
hello
world