Help for this page
unless ( syswrite( $pc, $data ) == length $data ) { # ... }
unless ( defined syswrite( $pc, $data ) ) { # ... }