use HTTP::Cache::Transparent ();
use LWP::Simple qw(get);
use Compress::Zlib ();
HTTP::Cache::Transparent::init({BasePath => "/tmp/http-cache-transpare
+nt-$>"});

my $gzipped = get "http://www.perl.com/CPAN/misc/lwall-quotes.txt.gz";
my $quotes = Compress::Zlib::memGunzip($gzipped);
my @quotes = split /\n%%\n/, $quotes;
print $quotes[rand @quotes], "\n";
[download]