You should check if open was successful, and also if close was:

open my $output, '|-', $PRINT_CMD
    or die "Can't open pipe to $PRINT_CMD: $!";
print $output $prolog;
...
close $output or warn "Error while closing pipe to $PRINT_CMD: $!";
[download]

Maybe that'll give you some clue about what's wrong.