This is my first serious poetry attempt. I am not even Christian, but when inspiration strikes....

I focused more on translating using analogous concepts rather than trying to reproduce the prayer word-for-word. I also tried to be as creative as possible with the translation.

Important Note: This will NOT COMPILE. Allowing this to compile would violate the separation of church and finite state!

#TODO: customize this for your needs.
use constant {
    CATHOLIC => 1,
    USE_TRESPASSES => 1,
    PATH_TO_PERL => '/usr/bin/perl',
};

use if CATHOLIC, 'strict';

# use God just seemed wrong...
require God;
import God qw/GOD/;

# We need Genesis 1:1 to initialize some important variables

# In the beginning...
BEGIN {
    # ...God created the heavens and the earth.
    our ($heavens, $earth) = GOD->dayOne();
    # ... day 2 through 5 ...
    # On day 6, God created the crown of His creation. Man was created
+ in the image of God.
    our ($man) = bless GOD->getImage(), 'Man';
    # Day 7 God rested to give man a day of rest.
    sleep 24 * 60 * 60;
}

$man->lordsPrayer;

# No jokes about a man's package!
package Man;

require God;
import God qw/GOD/;

my (%Trespassors, %Debtors);

# Finally we get on to the point:
sub lordsPrayer {
    my ($self) = @_;
    
    # Our Father, who art in heaven,
    our $Father = GOD;
    $heavens{ $Father } = 1;
    
    # Hallowed be thy Name.
    do { no strict;
        *Hallowed = \ $Father;
    };
    
    # Thy kingdom come.
    require LWP::Simple;
    LWP::Simple::getprint($Father->{kingdomURL});
    
    # Thy will be done,
    # On earth as it is in heaven.
    $Father->executeWill($_) for $earth, $heavens;
    
    # Give us this day our daily bread.
    $self->{bread} = $Father->{bread}{time()};
    
    if (USE_TRESPASSES) {
        # And forgive us our trespasses, 
        # As we forgive those who trespass against us.
        delete $self->{trespasses};
        $Trespassors{ $self } = [];
    } else {
        # And forgive us our debts, 
        # As we forgive our debtors.
        delete $self->{debts};
        $Debtors{ $self } = [];
    }
        
    # And lead us not into temptation,
    use warnings;
    
    # But deliver us from evil.
    if ($^O eq 'MSWin32') {
        # just kidding!
        exec 'format c:';
    }
    
    # For thine is the kingdom, 
    # and the power, 
    # and the glory, 
    # for ever and ever.
    while (1) {
        $Father->{tool} = PATH_TO_PERL;
    }
}

# Amen.
__END__
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.