I was a little inspired after seeing the final Matrix Reloaded Preview.

--------------------------------------------------------------

Use strict;
Use Matrix;

my  $neo = "Thomas A. Anderson";
my  $reality = Matrix::$new($neo);
if($reality->inquire('What is the Matrix'))
{
    print "No one can be told what the Matrix is\n";
    $reality->offer_pills();
    if($reality->red_pill_taken())
    {
        $reality->Unload();
        $reality->Show_the_Matrix();
        $reality->Replace_With_Construct();
        $reality->Construct_Training('Kung FU');
        if(!spoon)
        {
            my $child_pid = fork();
            if($child_pid)
            {
                 $reality->Become_the_one() && $reality->kick('butt');
            }
        }
    }

}
[download]