|
DamnDirtyApe - Pure Perl implementation of a Coder Ape
my $coder_ape = new DamnDirtyApe ;
$coder_ape->set(
{
'AGE' => 22,
'COUNTRY' => 'Canada',
'GENDER' => 'M'
}
) ;
while ( ( $coke || $coffee ) && ( $os =~ /unix|linux/i ) )
{
$coder_ape->code ;
}
-----BEGIN GEEK CODE BLOCK-----
Version: 2.0
GCS/IT d- s++: a-- C++ UB++>++++$ P+++>+++++$ L+ E W+++ N+
o? K? w--- O? M-(+) V-- PS+ PE Y+ PGP+>+++ t+ 5? X- R tv
b DI+++ D+ G e h- r++ y?
------END GEEK CODE BLOCK------
-----BEGIN PGP PUBLIC KEY BLOCK-----
Version: GnuPG v1.2.0 (GNU/Linux)
mQGiBDwTwfQRBADH+C+xkm3V3rFywQJw9IwkbNKifRxn47GSZEOOTxNn6IupqqGi
lO7BndliHsBQEqqalQchv6Ly8Djxl0aeS5MweCT1qrlrtkMtbqYtDcyp10x2iTcC
4MA5dU1/P/TdhEQQSAgSFbt3qE2ZnK3wsai2CdEFR47xAKG6NKwmMPeUAwCg+61C
gaMddxI+5/kzoCGomqGmcI8D/2qculnwGTeNyDH5EKJnb0w2Cjb7jmxe8RtAOKEx
3hApV18Ng5dWiEuId8TmAYoQiHyC09vv9L0lADysTNrzfH8ozXZwXJlcIYFg/Doi
jtUleX0mmZVSUkrJJ+rybT8jcfcWso2wa/igLjTyWHwXqPdkLf3zDOM8V1KJO1zj
Og3BBAC5j0iM3vKvkU0KXt9A2i+0Pz+xPIrUc3XUVVHntq9nhOPOhbckHF81tfTu
UnKFPQhiHmYFSoqhwMuPvMGvq3URs29WsCUGjX1gcoMkinOkAeOLQwwNh3MxMAri
d0GFaeQPUK0V4uG5HDRG6Ggs95mfF3TjO3bcjikR+xzEd+cIv7QgRG91ZyBHb3Js
ZXkgPGRvdWdnb3JsZXlAc2hhdy5jYT6IWgQTEQIAGgULBwoDBAMVAwIDFgIBAheA
AhkBBQI8E8H1AAoJEMWpVBWiIVWb8OcAoPQ+2Rz3aQ6nsVBNFGRbN6XBHhoOAJ4v
TWlEp4vz3/seWpJu8Eusd9eH0rQdRG91ZyBHb3JsZXkgPGdvcmxleWRAdW5iYy5j
YT6IXAQTEQIAHAUCPaw2JwIbAwQLBwMCAxUCAwMWAgECHgECF4AACgkQxalUFaIh
VZsxvACdHuFmqxcyp/Jgs/tmfbjnRvJQDjQAoJ3PZ9hGk7NEtKueqseD2VqCGGBO
uQENBDwTwfoQBACFIHws5Lzd1xG/GmryTfL1J/O2GdDIO0lGL/qpoTv4sJI/PHhI
N/E/VKev9Jw9x6pM/ngZHnWdgtO/1pubvlIhtyCTBRDHZTSrlczdSNkHZknEtDVs
7GEUmmcXw9f0+0Obvt7fOK0JF2gGVfIpwoKcMpICGnYH2GEP146PqL1qHwADBwP+
K0X0qEqxSv9IPfdOg8nbXppPH1pDaLJYxxDiERpOrRss3xQ4Eu/AViCVR0DXBSOs
RQor1AKm19vn78KJs2+NO4/oz7Tzs6Zf8EUosiF872hCWndFXW71+62nW3NOVGjY
XS4jVhWYAgc26KV1cJIK5MSRy1CW6OoxInkTUHV1iveIRgQYEQIABgUCPBPB+gAK
CRDFqVQVoiFVmwI2AJ9YeZej+Z7TvXtuxPfxznlSp+ueDQCgtM5wPNZ0eWfgyEsE
5D5FU3q7Sx0=
=zjY1
-----END PGP PUBLIC KEY BLOCK-----