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>