Help for this page

Select Code to Download


  1. or download this
    print "Howdy, world!\n";
  2. or download this
    $=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[@z]%=1+$#z--).=0}@z=@=for@
+==(1)x pop
  3. or download this
    use HTTP::Cache::Transparent ();
use LWP::Simple qw(get);
...
my $quotes = Compress::Zlib::memGunzip($gzipped);
my @quotes = split /\n%%\n/, $quotes;
print $quotes[rand @quotes], "\n";
  4. or download this
    #! /usr/local/bin/perl -w

...
       next tum biguttam tum stadium tum nextum tum novumversum
                scribe egresso.
   cis