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

my $pid = open (my $ARTICLE, "-|", "caesar") or die "Can't start caesar: $!\n$^E";

my $read = <$ARTICLE>;
say "[$read][$pid]";