#!/usr/bin/silly

I’m such a dork. But I wrote this up all by myself and hardly had to look at the book or anything! And I debugged it without calling for help or looking ANYTHING up, so I’m feeling rather pleased.
And geeky.

print "He who would cross the bridge of death\n must answer me\n these questions three,\n ere the other side he see.\n What is your name?\n";
$name=<STDIN>;
chop($name);
print "$name, what is your quest?\n";
$quest=<STDIN>;
chop($quest);
if ($quest eq "I seek the holy grail.") {
   print "What is the airspeed velocity of an unladen swallow?\n";
   $swallow=<STDIN>;
   chop($swallow);
   if ($swallow eq "African or European?") {
      print "I don't know! Arrrrgh!\n";
      }
   }
else {
   print "Well, bully for you. Good luck with that.\n";
   }