Update: The scene below is the final battle scene from the movie "Aliens." Forgot to mention that. :(

I had an odd post on Meditations when it struck me (and another Monk suggested) that this would make a great contest.

---

Synopsis: Ripley, the heroine, is trying to protect the little girl Newt by strapping on a Heavy Loader and attacking:

if ($newt =~ /running from alien queen/i) {
    RIPLEY: {
        use HEAVYLOADER;
        kill $alienqueen || undef $newt;
        open (AIRLOCK, ">>hacknedstoryidea.dat") || last RIPLEY;
    }
}
[download]

---

The contest: Write a short-story or rewrite a favorite scene from a movie in Perl.

Submission: My first thought is to have everyone go to Amazon.com and enter their submission as a user review to a book about a Micro$oft product and then post the link here. Then I realized it would be easier to just post submissions here to a contest node.

Scoring:

• Do you like the story? +/- 10 points by each person voting.
• Do you understand the story? +/- 10 points by each person voting.
• Minus 5 percent of grand total for each syntax error.
• Plus 10 percent of grand total if the program compiles.
• Plus 20 percent of grand total if it actually does something useful (We might want to put a minimum program size for this one).

Who will score:All Monks who are allowed to vote at the time the contest begins.

When will submissions be viewable: When a submission deadline passes.