in reply to OOP: Printing in EOF block

Team totty:
my $html = sprintf(<<'EOF', $session->param('x'));
<tag> %s</tag>
EOF

[download]

In Section Seekers of Perl Wisdom