, . Perl
use Socket;
socketpair my $A, my $B, AF_UNIX, SOCK_STREAM, PF_UNSPEC;
if (fork() == 0) {
stream();
exit;
}
while (<$A>) {
print;
}
sub stream {
select $B; $| = 1;
open my $fh, '<', '/file/to/stream';
my $buffer;
while (my $n = read $fh, $buffer, 1024) {
sleep 1;
print $B $buffer;
}
close $fh;
}