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

##</code><code>##

my $processfilename=$ARGV[0];