use strict;
use warnings,
use autodie;

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