#!/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; }
In reply to Hail Larry by tom10animal
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |