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