print makeXML('id',$id);

sub makeXML 
{return "<$_[0]>$_[1]</$_[0]>";}