Select Code to Download

                              +- read side of pipe
                             /
...
          ----------         ----------
                    \
                     +- write side of pipe

use strict;
use warnings;
...
    my ($kernel, $heap) = @_[KERNEL, HEAP];
    $heap->{wheel}->resume_input() if $heap->{wheel};
}

ombibulous> perl cat.pl < test.csv
00001,2,3,4
...
0foo,bar,baz
^C
ombibulous>