Select Code to Download

use warnings; use strict;
use XML::Twig;
...
    $para2->suffix("from the inside and from outside.");
    $twig->flush(*STDOUT);
}

{ # from the outside, flushing after each paragraph
    my $twig = XML::Twig->new(pretty_print => "nice");
...
    $para2->flush;
    $twig->flush(*STDOUT);
}