This isn't the most elegant, maybe; but it should work if no one comes up with a better solution. Change the prompts to whatever suits you.
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);