Help for this page
#! perl -slw use strict; ... </records>
<records> <record> ... <uid>0001</uid> </record> </records>