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