Select Code to Download

sub xml_output {
    my ($output, $tag, $fh,$i) = @_;

sub xml_output {
    my ($output, $tag, $fh) = @_;