sub fill_in {
...
  my $fi_progtext = 
        "package $fi_eval_package; $fi_prepend;\n$fi_lcomment\n$fi_text;";
  ...
  print "eval on \n", $fi_progtext,"\n";
  $fi_res = eval $fi_progtext;