Select Code to Download

use warnings;
use strict;
...
      ' '.escape_ents( $_ ).'="'.escape_ents( $_[0]{$_} ).'"'
    } sort keys %{$_[0]};
}

sub XML_elem {
...
  push @results, "<\\${tag}>";
  return @results;
}

print "\n == code fragment 1 =========================================
+==== \n";
...
  'root stuff',
  );

__END__

...
  };
}

print "\n == code fragment 2 =========================================
+==== \n";
...
  'root stuff',
  );

__END__

...
    'root stuff',
  )->();

__END__

...

;
__END__