Package MyConfession;

bless me;
$father;
for(@I_Have_Sinned) {
     $Days_Since_Last_Confession += 30;
}
&I_Have_Been_Angry;
&I_Have_Been_Jealous;
&I_Have_Not_Been_To_Church_Lately;

my $son;
foreach (1..20) {
     &Hail_Mary;
}
print "You are forgiven.";
bless you;
$my child = &Go_In_Peace_Serve_The_Lord;
[download]