#!/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;
}