Help for this page
$outputfile = $inputfile; open NEWFILE, '>', "$dir/subdirectory/$outputfile" or die "... $!" +;