#!/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")
}