1use blib;
2use Markup::Perl;
3<html>
4<body>
5<h1><perl>src('t/src2.xml')</perl></h1>
6<perl>my $foo = "FOO"; our $bar = "bar";</perl>
7<h2><perl>src('t/src2.xml')</perl></h2>
8<h3><perl>print $foo.$bar</perl></h3>
9</body>
10</html>