Re: The Perl Film Festival

[Tiefling]

("Lock", "Stock", ("Smoking Barrel") x 2);

foreach $sin ("Pride", "Envy", "Gluttony", "Sloth", "Wrath", "Lust", "
+Avarice") { $movie++ }

$gate[8];

(("Monkey") x 12);

$tide = "FF0000";

return $man{$uncle};

*Trek[2];
$wrath{"Khan"};

*Trek[3];
seek SPOCK,0,0;

*Trek[5];
$frontier[-1];

*Wars[4];
new($hope);

(("wedding") x 4, "funeral");

!($ing_hill);

$fingers_of_dr_t[0..4999];

doctor($strangelove) || $how_I_learned_to_stop_worrying && love(bomb);

That's enough movies - Ed.

-----BEGIN GEEK CODE BLOCK-----
Version: 3.1
GAT d++ s:- a-- C++ UL P++ L++(+) E? W+(++) N+ o? K w+(--)
!O M- V? PS+ PE- Y PGP- t+ 5 X+ R+++ tv- b+++ DI++++ D+ G+ e++ h!(-) y
+?
------END GEEK CODE BLOCK------