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);
[download]

PerlMonks graciously bestowed by Tim Vroom.
PerlMonks was recently assimilated by The Perl Foundation.
Beefy Boxes and Bandwidth Generously Provided by pair Networks
Built with the Perl programming language.