unless ( syswrite( $pc, $data ) == length $data ) {
    # ...
}

##</code><code>##

unless ( defined syswrite( $pc, $data ) ) {
    # ...
}