0
1       use strict;
2       use warnings;
3       use IO::All;
4
5       # v5.18.2
6       # Windows
7
8       my $io = io $0;
9        $| = 1;
10      while ( my ( $index, $value ) = each @$io ) {
11          print qq($index\t$value);
12          sleep 5;
13          print qq($index\t$value\n);
14
15      }
16      __END__
17
18
19