package TMPL;

sub fodus {
	my $out = join('',<Caller::DATA>);
	# do stuff to $out
	return $out;
	}