$outputfile = $inputfile;
    open NEWFILE, '>', "$dir/subdirectory/$outputfile" or die "... $!";