#! /usr/bin/perl
use strict;
use warnings;
use 5.010;



my $worker = "./worker.pl";

my @values = 1 .. 10;

open( my $pipe, '|-', $worker ) or die "Can't open pipe to $worker: $!";

$pipe->autoflush;

for my $value ( @values ) {

  say $pipe $value;
  sleep 1;
}

close $pipe;