print FILEHANDLE $_ or warn "Can't print: $!";
should be
print OUTFILE $_ or warn "Can't print: $!";

Also, it's kinda silly to keep looping after print returns an error, since you bothered to check the return value.