print "Please enter a filename: c:\test.txt";
print "Hit enter to accept, or enter a different filename: ";
my $filename = <STDIN> || 'c:\test.txt';
chomp($filename);