Re: Aaah, spring (A Very Special Perlmonks Contest)

[dsb]

Rewrite Shakespeare? If you want to YOU can!!!

Rewrite history. YOU decide if the boys will fight in Act 1 Scene 1, or if they will show restraint around innocents in Verona. A public place.

Corny, I know. I've been awake too long. ;)

Well here ya go. I REALLY like those T-Shirts ;).

#!/usr/bin/perl

# command line args:
# yes/no for $biteyourthumb : yes/no for $atme

$biteyourthumb = $ARGV[0] eq "yes" ? 1 : 0;
$atme = $ARGV[1] eq "yes" ? 1 : 0;
if ($biteyourthumb && $atme) {
    $benvolio = "coming";
    $come     = "come";
    quarrel($benvolio,$come) until ($benvolio eq $come);
    print "Benvolio: PART FOOLS!!!\n";
    print "\n*** Fin ***\n\n";
    print "<Abbreviated Applause>\n";
} else {
    print "Turn and RUN!!!\n";
}

sub quarrel {
    print "They fight!!!\n";
    ($_[0],$_[1]) = ("come",$_[1]) if (print "ENTER BENVOLIO\n")
}

Cool idea boo_radley!

---

Amel