open( INPUTDATAFILE, "< $inputfile" ) or die ...