Select Code to Download

use strict;
use warnings;
...
);

print $file, "\n"; # prints 'foo.txt' unless the command line explicit
+ly set something else.