Select Code to Download

print "Howdy, world!\n";

$=[!print$=]=!map{$==$=[$#z]+=$=[@z]/@z,($=[@z]%=1+$#z--).=0}@z=@=for@
+==(1)x pop

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";

#! /usr/local/bin/perl -w

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