Help for this page

Select Code to Download


  1. or download this
    # WTF
    if ( defined $r && ref $r && ref $r eq 'HASH' && keys %$r ) { ... }
    
  2. or download this
    # XXX PerlIO: Wide character...
    binmode $socket, utf8::is_utf8( $data ) ? ':utf8', ':raw';
    
  3. or download this
    perl -MLWP::Simple -e'print$_[rand(split(q|%%\n|,
    get(q=http://cpan.org/misc/japh=)))]'