my $html =<<'HTML';
<div>
 <p>Code</p>
<?perl 
print " <b>Hello World</b>";    
?>
</div>
HTML