#!/usr/bin/perl -w

use strict; use warnings;

use Markup;
use HTML::Data;
use HTML::Include;
use Data::Dumper;

my $data = {
	greeting => "Hello, Sam!",
	article => <<End,
I wish I was a bit less fog-brained.

Hopefully if I keep healthy for a while,
I will end up less fog-brained.

Let's try not to be too angry.  There is a sentence break with two spaces - did it work ok?   What happens if we have a "space nbsp" at the end of a line - does the next line get indented?  I hope not!
End
	species => 'wolf',
	description => <<End,
Wolves are nice carnivores
what eat sheep and little kids.
End
};

my $markup = Markup->parse_file(\*STDIN);
my $cwd = `pwd`; chomp $cwd;
HTML::Include->load($markup, $cwd, '/');
my $old_data = HTML::Data->extract($markup);
HTML::Data->bind($markup, $data);
print $markup->html;
print "\n", Dumper $old_data;