use strict;
use warnings;
use IPC::Open2;

my ( $in, $out, );
my $pid = open2 $out, $in, 'gswin32c -q -sDEVICE=nullpage -';
$in-> autoflush( 1 );
print $in "syntax error!\n\cZ\n";
close $in;
print do { local $/; <$out> };
close $out;
waitpid( $pid, 0 );