print "Enter base name of input files\n";
 chomp ($basename = <STDIN>);