example

Foo Bar ##

##

#!/usr/bin/perl -w
use strict;
use XML::Twig;

sub main() {
        my $filename = $ARGV[0] ? $ARGV[0] : die "specify input filename.\n";
        my @tags = ('input', 'textarea', 'checkbox');

        my $xml = XML::Twig->new(
                        keep_spaces_in => [ 'pre' ],
                        pretty_print => 'indented',
                        twig_roots => { 
                            'body' => \&insert_form_tags,
                        },
                        twig_print_outside_roots => 1,
        );

        $xml->parsefile("$filename");
        $xml->print;
}

sub insert_form_tags() {
        my ($xml, $body) = @_;
        my $form_group = 'process_group';
        my $form_name = 'process_requirements';
        my $form = $body->insert(
                form => {
                        method => "Post",
                        action => "submit.cgi", 
                },
        );
}

&main();

##

##


  
    example
  



  
    
      Foo Bar