#!/usr/bin/perl
use warnings;
use strict;

my $XP = -6;

sub Hail_Larry
{
    print    "Hail Larry, full of grace.\n";
    print    "The Camel is with thee.\n";
    print    "Blessed art thou amongs coders,\n";
    print    "and blessed is the fruit of thy mind, Perl.\n";
    print    "Holy Larry, Father of Perl,\n";
    print    "pray for us coders,\n";
    print    "now and at the hour our scripts abort ";
    print    "due to a compilation of errors.\n";
    print    "Amen.\n";
}

while($XP < 0)
{
    &Hail_Larry;
}
[download]