#! perl -slw
use strict;

my $tail = "c:\\Program Files (x86)\\Windows Resource Kits\\Tools\\tail.exe";

## Create an asynchronous process writing a file to tail
system 1, q[ perl -E"$|++; sleep(1),say for 1 .. 1000" > log ];;

## Note: the quoting.
my $pid = open PIPE, '-|', qq[ "$tail" /f log ] or die $!;;

## Print the output till the pipe runs dry
print while <PIPE>;;

__END__
C:\test>junk29
2
3
4
5
6
7
8
9
10
11
12
13
14

Terminating on signal SIGINT(2)
Terminating on signal SIGINT(2)

C:\test>TAIL: write() failed

C:\test>