Help for this page

Select Code to Download


  1. or download this
    ...
unless( is_filehandle( $arg ) {
    open $arg, '...', $arg or die $!;
}
...
  2. or download this
    #! perl -slw
package main;
...
pipe read:Ack
pipe write:Ack
socket:Ack
  3. or download this
    #! perl -slw
package main;
...
pipe read:Ack
pipe write:Ack
socket:Ack