{
    my $cpid = open my $fd, '-|', 'a' or die $!;
    print while <$fd>;
}