Help for this page

Select Code to Download

Select or download this

#!usr/bin/perl5.26.1
use strict;
...
if ($s->can_read(.5)) {
     print STDOUT "reading from pipe data\n";
}

Select or download this

#
# TEST RUN
...
|    | Total           |  57.9 |
'----+-----------------+-------'
reading from pipe data