#!/usr/bin/perl

use strict;
use warnings;

use HTML::Mason 1.10;
use HTML::Mason::Interp;
use HTML::Mason::Request;

my $interp = new HTML::Mason::Interp;

local $/ = undef;
my $comp = $interp->make_component(comp_source => <DATA>);

$interp->exec($comp);


__DATA__
<%perl>
for (0 .. 1) {
	$m->autoflush($_);

	my $world;

	$m->comp( { store => \$world }, '.world');
	print "Hello, $world!\n";
}

</%perl>
<%def .world>\
World\
</%def>