package TMPL; sub fodus { my $caller = (caller(0))[0]; my $out = join('',<{$caller .'::DATA'}>); # do stuff to $out return $out; } #### package TMPL; sub fodus { my $out = join('',); # do stuff to $out return $out; }