Select Code to Download

#!/usr/bin/env perl

...

print '*** Captured via $tail_pipe:', "\n";
print for @tail_captures;

$ cat > pm_test_file_to_tail
line 1
line 2
line 3

$ cat >> pm_test_file_to_tail
line 4
line 5

$ pm_test_tail_pipe.pl
*** Start reading from $tail_pipe at 1371707519

line 6
line 7

^C*** Stop reading from $tail_pipe at 1371707542
*** Captured via $tail_pipe:
...
LINE 5
LINE 6
LINE 7

line 8
line 9

$ cat pm_test_file_to_tail
line 1
...
line 7
line 8
line 9