Help for this page
@head=<reportparameters name="hostname">localhost</reportparameters>;
print "array @head"
`perl -pi -e "print '@headinfo ' if \$. == 1" $file`;