Are you sure about that? I was cleaning up these routines and modules and thought I saw output that was unitialized that would otherwise have drawn an error.

To be honest, I'd rather have the output than the error. I can see when the data hasn't been initialized. Short of any criticisms I receive, this represents what I was trying to achieve on this thread: Typical output

I'm fascinated by quines, and wrote a couple routines that are quine-ish:

sub write_script  {
use Text::Template;
use File::Slurp;
use 5.010;
my $rvars = shift;
my %vars = %$rvars;
my $tmpl = $vars{"code_tmpl"};
say "tmpl is $tmpl";
my $file = $vars{"script_file"};
my $text = read_file($file);
my %data = ('script', $text);
my $template = Text::Template->new(SOURCE => $tmpl)
          or die "Couldn't construct template: $!";
my $result = $template->fill_in(HASH =>\%data);
return \$result;
}

sub write_module  {
use 5.010;
use File::Spec;
use File::Slurp;
my $rvars = shift;
my %vars = %$rvars;
my $tmpl = $vars{"module_tmpl"};
say "tmpl is $tmpl";
my $fspecfile = File::Spec->rel2abs(__FILE__);
my $text = read_file($fspecfile);
my %data = ('module', $text);
my $template = Text::Template->new(SOURCE => $tmpl)
          or die "Couldn't construct template: $!";
my $result = $template->fill_in(HASH =>\%data);
return \$result;
}
[download]

They almost work, but the code tags for html can't quite pull it off, yet it gives as much of a listing as most people would be interested in.