@head=<reportparameters name="hostname">localhost</reportparameters>;

##</code><code>##

print "array @head"

##</code><code>##

`perl -pi -e "print '@headinfo ' if \$. == 1" $file`;