Here goes. I'm doing Romans 1. 
use Prophet; use Believer;
my $self = new Believer;
name $self Paul;
serve $self Jesus;
call $self sub { 'apostle' };
promise Prophets Holy_Scriptures => $God{gospel}, Topic => $God{son}
set_apart $self { $God{gospel} }
$God{son} = {parent => 'David', declarer => $God{spirit}, purpose => {
+title => 'son', by_means_of => 'resurrection'};
receive $self grace|apostleship for ($God{son});
$self->grace(purpose => Gentiles->call, end_result => Faith->obedience
+);
my $listeners = $God{son}->who_belongs;

for (Romans->loved_by_god()->called_as('saints')) {
 give $_ for (%God{Grace,Peace}, $God{son});
}

thank $God $_ for $listeners->faith;
for ($God) {
 $self->heart()->serve(method => \&Gospel->Preach);
 witness $God $self, reason => $self->prayers()->remember();
 pray $self time => scalar localtime, by => $God{will}, todo => $self-
+>allow(\&{$self->travel})->walk(Rome)
}

for ($self) {
 $self->wants(action => \&CORE::sysread, inorderto => \&{$self->give},
+ param => 'spiritual');
 wants $self \&encourage_faith, $listeners;
 wants $listeners \&encourage_faith, $self;
}

carp "Sorry I couldn't come: $!" for $self->trips;
wants $self \&teach_gentiles, notfrom => 'rome';

obligated $self $_, sub { goto ROME } for (Greeks, Others, Wise, Fooli
+sh);

$self->shame->{gospel} = 0;
{ package Gospel; push @ISA, eval { salvation for (Jew, Gentile); }}
Gospel::reveal $God{righteousness};
live $righteous $faith;

for ($God{wrath}) {
 print MEN $God, %God{power, nature};
 reveal $_ from => 'heaven' because => \%Men{godless, wicked};
 delete for %$Men{excuse};
 Men::know($God);
 Men::give_glory(Men);
 Men::give_thanks(Men);
 Men::think('futile');
 Men::darken('hearts');
 Men::claim(wisdom => 'idols', represent => [Men, Birds, Reptiles]);
 $God->give_over(Men, sin, sex => Men);
 Men::serve(Men);
 $God->give_over Men, sin (Men, Men);
 $God->give_over Men, sin (Men::women, Men::women);
 $God->punish for %Men::;
 Men::Forget($God, replacement => [qw/wickedness evil greed depravity 
+murder slander envy malice/]);
}

[download]

In reply to Perl Bible by karhu

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • 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! —
  • 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:
    & &amp;
    < &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.