Select Code to Download

use strict;
use warnings,
...

open my $new_file, '>', qq($dir/subdirectory/$outputfile);