just while I've been asked about why I should be the right person for a job, I tried to put that in a nice way. (Ok, a bit changed to fit on perlmonks.)
b.t.w., it's a first time one :-)

#!perl
use strict;
$|++;

my $life = 1;
my $knowledge = "good";
my $practice = "work";

# want to
open TEAM, ">>../../perlmonks/knowledge/shared.txt" || die "couldn't a
+ccess";

while ($life) {
$knowledge .= learn;
$practice .= $knowledge."work";
print TEAM, $practice;
} 

close TEAM; #should never happen :-)

sub learn {
return " more";
}
[download]

Have a nice day
All decision is left to your taste