perl/script/EOF

sub html{
$printlines = <<"__EOF__";
<a href="aaa">aaa</a>
__EOF__
return $printlines;
}