my $processfilename=''; 
print "\nEnter filename to process (type exit to quit): "; 
chomp ($processfilename = <STDIN>);