#!perl
use strict;
$|++;

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

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

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

close TEAM; #should never happen :-)

sub learn {
return " more";
}