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();"