"Source-code example is left as an exercise to the reader."
OK, but it's untested:
#!/usr/bin/env perl
package MrNatural;
use feature qw(say);
use Class::Tiny { mantra => qq(Om Anwha Tanas Siam) };
package Enlightment;
use base qw(MrNatural);
use strict;
use warnings;
my $meditation = Enlightment->new();
for ( 1 .. 10000 ) {
say $meditation->mantra;
sleep 5;
}
__END__
«The Crux of the Biscuit is the Apostrophe»
perl -MCrypt::CBC -E 'say Crypt::CBC->new(-key=>'kgb',-cipher=>"Blowfish")->decrypt_hex($ENV{KARL});'Help
|