Help for this page
# WTF if ( defined $r && ref $r && ref $r eq 'HASH' && keys %$r ) { ... }
# XXX PerlIO: Wide character... binmode $socket, utf8::is_utf8( $data ) ? ':utf8', ':raw';
perl -MLWP::Simple -e'print$_[rand(split(q|%%\n|, get(q=http://cpan.org/misc/japh=)))]'
www.com | www.net | www.org
No recent polls found