#!/usr/bin/perl -w
use strict;
use 5.010;
use lib "template_stuff";
use steps1;

say "enter basename for file";
my $word = <>;
chomp $word;

# main data structure
my %vars = (
  fears  => 'fears2.txt',
  causes => 'causes2.txt',
  width   => 50,
  word  => $word .'.rtf',
);
my $rvars  = \%vars;
my $return = pop_texts( $rvars );
say "returned was \n $$return";
my $return2 = format_texts( $rvars, $return );
__END__