package Rowan;
use Sex qw(TheoPetersen Theo_sWife);

package main;
$Rowan=new Rowan;

bless $Rowan;
[download]

--
$Stalag99{"URL"}="http://stalag99.keenspace.com";

Congratulations:

perl -e "package No_Condoms; sub intercourse { my $sperm = {}; bless $
+sperm; return $sperm; }; sub result { return 'oops' }; package glint_
+in_eyes; my $deed = No_Condoms->intercourse(); print $deed->result();
+"
[download]

!!!

Celebrate Intellectual Diversity

Well, last night he said something which arguably sounded like Perl code :)

Oh, c'mon Theo, you know as well we do that that was just gas!

Congratulations Theo! I wish you and your wife many megatons of energy with which to manage your progeny.

 
___crazyinsomniac_______________________________________
Disclaimer: Don't blame. It came from inside the void
perl -e "$q=$_;map({chr unpack qq;H*;,$_}split(q;;,q*H*));print;$q/$q;"