Select Code to Download

$ ./fears1.pl
enter basename for file
rt2
...


$

sub pop_texts {
  use strict;
  use 5.010;
...
  my $reftext = \$text1;
  return $reftext;
}