my $generator = <<'END_GENERATOR';

my $self = <<"END_SELF";
my \$generator = <<'END_GENERATOR';
${generator}END_GENERATOR

eval \$generator;
END_SELF

print $self;
END_GENERATOR

eval $generator;