#!@PERL@ use POSIX; my $buf; my $count = 0; while ((my $size = POSIX::read(0, $buf, 32768)) > 0) { POSIX::write(1, $buf, $size); } print STDERR "amcat-error-end: failure Y\n"; exit 1;