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