$file1 = 'c:\file.txt';

print "Enter File Here: $file1\b\b\b\b\b\b\b\b";
chomp($file2 = <STDIN>);
$file2 ? $file = $file2 : $file = $file1;