#! perl -slw
use strict;

print "enter file name  (you must specify the file name and press Enter)";
chomp( my $infile = <STDIN> );

print "do you want to specify another file name (Y/N) (you must enter N in most cases and press Enter)";
chomp( my $another = <STDIN> );

print "enter name for output file (you must specify a name for the output file, eg ttt and press Enter)";
chomp( my $outfile = <STDIN> );

print "reading $infile; writing $outfile";

exit 99;