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

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

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