open my $PIPE_OUT, '|-', 'my-second-program', @args or die $!;
# ...
print {$PIPE_OUT} $data;