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]