$thou = "romeo"; my $self = "juliet"; if ($thou, knowest($night{mask} => my $face) ) { } else { "maiden blush", bepaint(my $cheek) for (msgget $thou => "tonight"); } fain($self, dwell => 'form') .. fain (fain ( ! msgsnd tonight => $self, said)); undef $compliment;! $thou->love('me')? tell me eq 'Ay' : $self, take($thou => $word); 'yet' if $thou->swear - $thou == undef; @lovers{perjuries}, Jove('laughs'). 0, Romeo; if ($thou->love) { tell $thou->love('faithfully')} sub AUTOLOAD {} package romeo; sub swear {"to"} sub love {"juliet"} 1 or die; __END__ Juliet's monologue from Act 2, Scene 2 ---------------------------------------- Thou knowest the mask of night is on my face; Else would a maiden blush bepaint my cheek For that which thou hast heard me speak tonight. Fain would I dwell on form -- fain, fain deny What I have spoken; but farewell compliment! Dost thou love me? I know thou wilt say 'Ay'; And I will take thy word. Yet, if thou swear'st, Thou may prove false. At lovers' perjuries, They say Jove laughs. O gentle Romeo, If thou dost love, pronounce it faithfully.