open (INPUTFILE, ">$inputfile");
...
    close(INTPUTFILE);