open( NEWFILE, '>', "$dir/subdirectory/$outputfile" ) || die "Can't open $dir/subdirectory/$output