my @filelines=`cat $input_file`;print OUTFILE $filelines[0];